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PREFAZIOHE 


Un libro consistente come lo e’ questo,affronta il vostro 
Spectrum richiedendo da parte vostra una buona dose di tempo 
libero e di volontà’. I programmi,infatti, sono nella 
maggior parte,lunghi ed impegnativi il che denuncia la loro 
accuratezza nel definire scenari e nel predisporre le azioni 
a tutto vantaggio della qualità’ dei games. 

La vostra collezione ha acquistato, senza dubbio,il suo 
pezzo piu' pregiato,quello sul quale poter fare, 
all'occorrenza, affidamento. 

Per comporre l’opera, ho raccolto il materiale migliore 
presso i programmatori piu' preparati del momento. Il 
supporto principale e' stato offerto da Malcom Young, David 
Perry, Graham Charlton e leil Peliinacci. Hanno, inoltre, 
collaborato: Scott Vincent, Raymond Blake, Heal 
Cavalier-Smith, Paul Toland, Andrew Sweetland, Martin Jones, 
Graham White, Tim Rogers, Damian Steele, Heviile Predebon e 
Michael Briggs. 

A tutti costoro vanno le mie congratulazioni per la 
qualità' dei programmi messi a disposizione. 

Tim Hartnell 
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GIOCHI ARCADE 


PROTECTOR 

Cane prino game eccovi un tipico "arcade" che vi da’ la 
possibilità’ di salvare la terra, o alneno qualche sua 
citta*,come dinostra il disegno sotto riportato. 

I controlli sono : ’’Q","A”,"0”,”P’’ e ”M” rispettivanente per 
lo spostamento verticale,per quello orizzontale e per lo 
sparo. Buona fortuna... 



•*, y 

y \ 


PUNTI* 1930 

x x' . 

V/ / X 

T\ / / 

\▼ * 


S0 
3 0 
4.0 
sS 
60 


80 
è0 
100 
1 . 10 
120 
.6 

13 0 
1.4.0 
150 
160 
1T0 
160 
1A0 


R E M C A P S L. O O K UHI 

FDP F * 1 T0 4.«i 
BOROER F/7 
BEEP 0.05 F 
PRINT RT 6.10; INK 
FLASH 1;"PROTECTOR" 
NE XT F 
LET SC = 0 
LET H5=0 
PESTORE 
LET Ns0 

PAPER 1 : EORDER 1 : 


LET RBC": 

LET R !i »0 $ 

LET LISì» + "OEpp" 
L.ET E*l*="*rtw a %" : 
POR X = 1 TcT 12 
READ Af 
F O R V=0 TO 7 


0; PAPER 


INK 6 


C 


REM G RBC 

REM G DESG 
REM G 3666 


20® PERO R 

fi10 POKE USR Rfi+Y,R 

fi fi 0 MEXT V: NE XT X 

230 DIH 2*(6,2,4): DIH L(IB.fi): 
DIM N(18): OlM XÉ(18) 

240 DRTR "R" ,fi© ,fi® ,fi© ,fi© ,fi® , fi® , 
©0 , Ifi© ■ "B" , 16,16,86,86, B© ,5 6,56, 
1 fi 4- , “C" . 126 , Ifi© , Ifiè , 193 , Ififi , fi fi 4 


. 31,63,63,6 
, £56,£56,fi© 
198.195,fi3 
Z.A.S , fiBfi.fi© 
4 © , 4- S , X 1 fi , 1 


£34 ', £40 , ’ 1 D 1 ‘ , 7,7,18,15 

3 , "È" , 264 . fiB4 , fi B 4 , 355 
6,255 , M E " ,285,265 , fi3 1 .. .... I 
1,265,266 , "G " ,£40 , fi4B ,fi4 
fi,284,fiS4,285,"H",4©,4©, 
fi® , Ifi® , Ifi® , 1 fi4 

fi: B ® D RT R " I " , 1 fi: fi , 6 B , 3 © , ® , ® 
© , 129 , , 129 Ifi© , 135 , B® , 6® 

4 , fi 4 , •• K ■’ , 126.64,32,16,8,4,2 

" , 1 , fi ,4 , © . 1© , 3fi , ©4 , Ifi© 

■ (B 


LET 
N E XT 


3 © , 6 

fi 4 ;, fi 

1 , " L 

1) = © 


’ H 
. U B 


1 : 
®fi 


SS© POP Bai TO © 
fi : LET Z «M 6 , fi ) =U fi : 
fi 7 ® C L.. S 

fi: © 0 LET U#10: LET D«U: LET 

L. ET Da©: GO SUB 0270: CO 5 
fi® 

fifi® FDP Bai TO U: LET L (6,1) a IN 

T (RND*H) : LET L(B ,2) «INT (R N D * 3 
0): LET N<©)=INT (ftND*fi)*3-1: LE 

T X * (©) sCHRf C 154,5 -N (©) Xfi) : N E X 
T ©■ GD SUB 0fiS® 

30® L.ET Rial? : LET Rfi a 1S 

310 LET BaB + 1: IF B > D THEN 

B a 1 

3fi© PSINT 

.330"'PR 1 NT RT L (6,1) , L t B , fi ) ; X fi ( B 

:■ : LET L (B , 1) al.... <B , 1) +1 : LET L (© , 

fi) al... CB .fi) + N CB) : IP L (B , fi) >3 1 THE 

N LET L. ( B , fi ) a® 

340 IP L(B,2) <® THEN LET I... ( B , fi ) 


RT 0 , 20 .; INK 


L ET 
© .; ‘ ’ P L..I NT I 


= 3 1 
3 «, 0 

... i , ' ' , , 

36© 

37® 

3 © © 

0 

39® 

10 

40 © 

1 

4- 1 © 

4 fi 0 

1 

4 3 0 
440 
45® 
46® 
43® 
4©0 
4fi© 
S ®0 
3 1 0 


IP SCREEN 4 (L. ( 6 , 1 ) , !... 
THEN GD TO 3710 
PRINT RT L(B, 1 ) ,L(B, 
LET L 1 = 0 : LET Lfi =0 

INKEV fi = " " THE"N GO 


IP 

IF 

IF 

IF 

IP 


INKEY !$ 

1 NKEY« 

1 N K E Y * 
INKEY fi 


,, m ,, 

"q." 


•ri 

" O " 


THEN 

THEN 

T H E N 
THEN 


C B , fi ) ) < 
fi ) .; " ,....i 11 
T O 050 
G O TO ®5 
LET Lls- 


,ET 

.ET 


1 = 1 


IP INKE!!Y fi = 11 p 11 THEN L.ET L. fi = 1 

PRINT RT RI,Rfi;" " 

I... ET R 1 a R 1 + L. 1 : L. ET R fi = R fi + !._ fi 
IP R 1 < 1 THEN LET Rial 

IF R 1>17 THE N L ET R 1 a 17 

1 F R fi <1 THEN LET Rfi a 3 ® 

IF R fi >30 THE N L. E T R fi: a 1 

PRINT RT RI, Rfi: "I": CO TO 0 
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510 PPTNT INK SlAT Rl-1 . A 3 --1 : " « 
HE* ;; ;RT ,, 1=1 i , fl2 - l”ÉF«r 1 «T A 1 + 1 , fra - 

"SS0 FOR Y » 1 TD D: IF flBS (L(Y,1 
:i -Al) >1 OR flBS CLCY.,3) -flfi) >1 THE 
M G O T O 054.0 
E* 3 0 G O T O 0570 

S4.0 NE XT V 

550 PRINT fiT fil-l,na-l;" ";AT 

A1 , R2 - l.; " '• PT P1 + i , fla- 11 ■' 

560 GO TO 0310 

è?0 L.ET I... CY . 1) *L (D . 1) : L.ET L (Y , 
S) *L(D.S) : LET IM(Y) =N(D) : LET X 56 
C V :i = X % C D ) : L. ET D « D - 1 : L ET SC*5C + 
X 0 

530 B6EP ,,15,16 

500 XP D >0 THEN GO TO 054-0 

600 LET H=H+1 

610 PAUSE S0O 

620 CLS PRINT PT 5,5; FLASH 1 
"TUOI PUNTI " ; SC: PAUSE 100 

63 0 LET I.-.I ss0 • FOR X ss 1 TO 6- IFZ 
MX.3) < >E* THEN LET l,lel,) + l 
6 4 0 N E XT X 

650 1F' Us0 THEN GO TO 0350 

Sè.0 PRINT PT 10,0.; : FOP X = 1 TO 
U : PRINT PT 10,4 * ( X - 1 !i ; P « .; AT 11. 
4*(X-1) L U * 1 N EXT X 
670 LET f ss W * 10 0 ; PRINT AT 11. CU 
Ì *4; •' a BONUS " ; T : LET SC*SC+T 
6 3 0 Gì O S U B 0970 

690 GO SUB 0930: LET U«U +1: IF 


690 

GO S 

U » 15 
700 

THEN 

L. ET 

710 

IF L 

0 

730 

IF S 

> " " THEN 

7 3 0 

L. ET 

740 

N 

iL 

H 


700 L. E T O = : G O T O 0390 

710 IF LCBjl) <13 THEN GO TO 036 


iO TO 0i3 0 0 
: -1. C B . 3 .1 

1 AND 2<C THEN L..ET Z$( 
" : LET 2* (1,2) ~E * : GO 

5 AND 2<10 THEN LET 2* 
" : LET 2 * (a ,2) *E|: GO 

9 AND Z < 14 THEN LET Z *6 
": LET Zi(3,2)*E(- GO 


1 , 1 ) se" 

T Di 03 4 0 
750 IF Z 
CS , 1) •" 

T O 0 3 4 0 
760 IF Z 
C 3,1 ) *" 

Ttì 0340 
770 IF Z 


* c 4 , i :• - ■■ 

O TÒ 0340 


P N D 2 < a 3 T H E N L. E T 
LET 2* C4,3) «E* : 


730 IF Z 
«MS, 1 ) » ' ' 
ri T O 0 3 4 0 
7 9 0 IF Z 
È C 6, 1 ) - " 
ri T O 0 3 40 
300 LET 

a ) « l c d , a ) 

(B) =XÉi CD) 


2>ai AND 2 <26 THEN LET Z 
": LET ZÉ(5,3)«E*: G 


3 10 


35 AND Z<30 THEN LET Z 
• " : LET Z * (6,3) =E * : G 

CB , 1 ) al... CD , 1 ) : LET L CB , 
LET NCBO*NCD) : LET X* 
LET D sB-1 


D>O THEN GO TO 0360 
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0S0 
030 
©4- " 

ty 

a : 

essa 


GO 


IF W=0 THEN GO TO 0850 

GO TO 0600 

0 BEEP «16., S: GO SUB 09S0 

8 0980: SO TO 0800 

0 CU S ^LPl8H 1: FOR X * 1 TO 9 

PRINT “aaxCBSBBSBsaaasaaasase 

.. NEXT X: PRINT PT 10 


6 
NT 

RECORD 

" • LET 
IL TUO NOME 
880 PRINT 


FLASH 0 


ORME OUER" 

PRINT 

FLASH 0: XF SO *HS THEN PRX 
BRANO HAX STABILITO XL NUOUO 


“BATTI 
0.; INK 
1;“B PE 
BEEP 0. 


H5*SC: INPUT 

_ ÉrInT PAPER 

?:Nl; " E' IL RECORDMEN" 

890 PRINT PRINT FLASH 
P GIOCARE ANCORA" 

900 1F XNKEY*<>"B“ THEN 
3.1: GO TO 0900 
910 L.ET SC =5 0 • GO TO 00S@ 

9§0 LET "+Z* (1 , 13 +Z* (fi , 1) 

(3,13+“_Jfc " +2* (4 , 13 +2* (8,1) -i 

i=E Hn.m " + 

' " 


+zì 

2 Ìo0"LET 
,3) +2$ (3 


à±tSJU& t +2À»tn\\ 



+zé (a 


dg |* 1 O 


t 4.0 R 
60 P 
S); INK 
(16 TO 
INK 4 : Q *(31 
TO 46) INK 


tijrn 

ilNT AT 19,0: INK 
‘ ( 3 TO 14) 


3 J O * . _ . _ 

18 3 INK 3,; O* < 19 



TO 
4O 


4 ) . 

(47 

INK 


„ to saS 
RETURN 
PRINT AT 30j13 
FOR F«1 TO 300 

RETURN 


4; 0$ ( TO 
INK 4:0$ 

. TO 30) ; 

INK 3:0* (36 
TO 60); INK 
4 ; O* (63 TO 3 


“GRADO “;H 
NEXT F: CLS 


v. 


.X 


X 


\\ y \s / 

'V//< 

Ay X 

/ xvv / 

X x A\ 

A A A Xx X X. X 

x / A. x x v 

/ X XX 


\ x 

X / \. 


PUNTI» 0 / 

X // 

' /A 

x 


X 


v 

XV 




x^x 


X. / 

/• s \ / 




Paul Toland ha studiato questo divertente game che vi 
obbliga a saltare di linea in linea superando uno schermo 
dopo l’altro. Se dovrete attraversare cinque con grado di 
difficolta' crescente. Eccovi gli schermi: 






Ed ecco anche il listato del Hi Rize: 


1 REM HI-RIZE © P.TOLfl 
80 OD SUB 800: <30 SUB S 

90 LET TOT«TOT + 1: L ET U 
GO SUB 930 

100 POR IsH TO I... : PRINT 
1 H C I , 1 ) ; CHR SÈI 14.4. : LET N « 
H ( I . S) : IP N < 0 O R N > 3 1 T H 
fl « I NT (RND +.5) : LET H ( I . a 
0 .1 : LET N * ( H < I , 8 ) = - 1 ) *3 1 
110 PRINT RT I * 2-1 . N : " " 

(1,1 .ì sN ■ NEXT I 
130 PRINT PT V , X : " IP 

« (Y + l,X:t= M '• then LET se 
G : PRINT RT ai , 8 ; SO ; CHR* 
EP , 1,-20: LET ’ V «=Y +& : LET 
LET ts0: IF L < 10 THEN LE' 
IF G > a THE N GO T O 300 

130 L. ET TaT + 1: IF TsUN T 

0 = 14.5: BEEP .08,30 
14.0 IF C = U6 THEN GO TO 
.14 5 L. ET I $ * IN K E Y * : IF I * 

X ) = " 
L E' 

L. =L. 
NT R' 

P R IN' 
. 0 5 , 

+1, a 


HEN GO TO 150 

146 IF 8CREEM* (Y-l, 
BEEP .05,0: LET C = 146 
Gì O 7' O 16 0 

147 IF Y<80 THEN LET 
LC10 RND G>§ THEN PRI 

; B* 

14 8- (...ET 3C=SC + 10 *G : 

,8;SCiCHR* 144: BEEP 
Y i*Y - a : L ET X ■ X - H ( Y X & 


V - 1 , 
ss 14 6 


ND 
5 0 0 

N sUN+2 ■ 

rt i*a- 

H C I , 1 ■) + 
EN LET 
5 = R~ (R = 

I.ET H 

3CREEN 
aSC-90* 
144: ®E 

r;: ss 1 4 6 : 
T L •--= L + 1 

HEN !.ET 

:1 5 5 

1 " T 


THE N 
T « 0 ■ 


T T 


- 1 : I r -~ 

T Y+1,0 

T RT a 1 

20 : LET 
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LET Ds-H 

v V/ 


150 LET X=X + (I*a"8") - ( X $ « ' - B " il : 

L ET X « X + (Xs - 1 :i #3S - (Xs3S) #3S 
154. IP 5CREEN* (Y + l,Xi s" " THEW 

GO TO 120 

IBS LET MafiTTR CY.X) : IP N e E 0 T 

HÈN LET 5C=5C+10#O: 5EEP .06, B : 
PRINT RT 21,8; 5C; CHR* 14.4. 

15? 1F N=4è ÒR N =51 THEN GO TO 

3 X 0 

Xe0 1P G 3 THEN LET H »V R + ( V y'&m 

O ) 

X6S PRINT INK 0 ; RT V.X: CHR* C: 
IF V«0 THEN LET G = G + 1 : RESTOPE 8 
000: POR Issi TO 13: READ N: BEEP 

.X.N: NEXT I: GO TO GO 

X70 PRINT RT BY . EX ; " LET BX = 

BX*D: LET ©X= BX+ li BX« - X) *3P - ( BX=3 

R il * 3 a : L ET R * « S C R E E N $ < BY + 1 ■ B X il : 

IP SCREEN* (BY+l.BX-D)*" "OR R 
* e" " THEN LET BYsBY+S: “ ‘ 

li B Y 2 + 1,8) : IP B Y > i 1 O R 

N LET BY=0: LET BX*1S: LET Ds-H( 

X ., S il 

175 LET WsflTTR (BY.BX): IP N»48 
THEN GO TO 310 

1.77 IP N = 5 1 THEN LET D = -D : L„ET 
BX"BX+D 

180 PRINT INK 0.; RT BY.BX; CHR* 1 

4 IBS IP Gasa AND Y <20 THEN PRINT 
INK O;RT 20,0;N* 

X 90 GO T O 100 

300 POR I saL *2 TO 20: PRINT RT I 
, X; CHR* 148 ; RT I-1,X;“ " : BEEP . 

I, 00-1: NEXT I 

310 BEEP 0,-10: LET M«M-1: IP M 

= 0 THEN INPUT " ANCORA 3 " R * : G 
O T O 1 + ( R $ = " N "ii *9996 + (flJr'Ti " il *99 

3a0 LET G « G - 1 + ii G = 1 ) 

330 GO TO 90 

B00 RE5TORE S00: LET Tuba"": POR 

1=1 TO 63: READ N: LET T*»T*+CH 
R$ (N+128): NEXT I 
B10 DATA 0,14,13,0.7,11,0,1S,0, 

II, 6,0,7,11,0,3,3,11.0.11,3,0,10 
,0,0,0,10,0,0,0,10,9,0,5,10,0,0, 
9,0,0,11,3,0,10,5,0,13,14,0,0,0 . 
10,6,0,13,14,0,13,12,10 ., 0,14,1 a 

320 LET T*ss" "+T*( TO 

"+T|(23 TO 4S> + 

" + T !fi ii 43 TO il 

«00 RESTORE 9 00 : POR 1=0 
READ N: POKEi USR "R"+I,N 
I 

905 LET N=0 : DIM 5*03) : 

IZE LET TOT ss© ; LET UN=8 
C =s0 : LET M ss4 : LET 0 = 1: RETURN 

9 10 DATA 255,255 , ;S8S , 0 , © , 0 , © , 0 . 

911 DATA +5 0,231,1+3 9,165,153,88 , 
66,23 1 


22 ii + " 


TO 55 : 
NEXT 

RANDOH 
LET S 
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9 12 
9,231 
9 13 

D RT R 
, 24 

D RT R 

, 102 , 

Si 4 

lil 

Ah 

DRTR 
DAT R 

v' 

916 

D RT R 


196,168,1S9,109,189,18 

24- , 103 103,1B3,103,102 

0,0,24,60,60,24,24.0,0 
16,16,16 ,S è,S 6,66,2S 4 , 


POR I 
189: LE 


24,24,60,266,60,24,24 

"'920 LET NS6»"“ : LET L. ffi « ' 
al TO 39 : LET N£«N*+CHRl 
T L$sL|+CHRt 144: NEXT X 

930 IF R $ a " Y ' 1 THEN GO SUB SSS0 
9^0 LET Hai: LET L. = 10: LET T = 10 

0: LET X = 16 : LET Y=20: LET C = U5 
960 INK 1: PAPER 6: BORDAR 6: C 

L.S 

96® LET BXa10: L ET BY*0 
9?0 IP G>1 THEN POR 1*1 TO 20: 

PRINT INK 2 ; RT INT ( RND * 10 ) *2 . RN 
0*31 ; CHRÉ 146: NEXT I 
“ G> 4 THEN POR 1 = 2 TO 10 S 

PRINT flT X , 16 ; INK 3; CHRi 


960' XF 
TER 2 : 


NEXT X 
DIM H ( 10,25 
POR lai TO 21 
PT 1,0;LÌ: NEXT X 
1020 POR X«1 TO 10: 
NT (RND*31) : LET Re 
LET H(I,2) »R'-(fls0) 
1.030 LET O a -H (1,2) 

'' PRIf-. 


STEP 2: PRINT 

LET M (X . 1) al 
INT (RND+.6): 

: NEXT X 


1040 

SC 


NT RT 21,6;SC;RT 21,15, 


HERMO'NCHRS f44 ; GjRT 3 1. ,29; TOT 
POR 1=1 TO M-l: PRINT RT fel.X* 
.. NEXT X 


2 ; CHRjfe 146 
2000 RETURN 


a , 2 . 14 , 14 , 1 . 4,1 1 , 11,1 


!0 10 D RT R 
i i. il *■? p 
2600'PÒPE# X: INK 7: BORDER 1: C 

LS : INPUT ; : PRINT RT 10,0; "UUO 

i Le i «. t r u zioni 3 ( m x n ) ’ ' 

gR0fi | et 1=0 

2610 LET I« * XNKEY« : PRINT RT 0,0 
; INK t;T*: XP I|="" THEN LET 1= 
X + 1- (1=6) *6 : GO TO 26 10 
2620 LET P**"N": XP X^a^Y" OR 1$ 
= 11 M ‘' THEN LET P35a"Y" 

2530 RETURN 

2550 LET 1=0: X N K '7: RRPER 1: CL 

S : BORDER 1: INPUT ; : PRINT RT 


4,10: INK 6;"SCHERMO 


G 


G O 


■ IJB 


264è LE? I$ = INKEYjS: PRINT RT 0,0 
; INK I;T*: IP I $ = •'•' THEN LET I* 
1 + 1- (1=6) «8: GO TO 2560 
2570 BEEP .8,10: RETURN 
2600 P RINT RT 6,0; "Devi ra g g i u n g 
e r e La c i tu a dì o g n i. s c Mi e r ro o 

a v a ri z a n d o d a l L " u n o a l L " a L t r o „ Sp 

o s t a t i » a L t. a n d o a 11. r 

a v « r s o Le a p e r t u r e d e. l l e L i n e e s 

u » e r :i. o r i e v i t. a n d o di tornare a 


19 



q. u * i. I a d a i.. i. a q. y a Le jei par 

ti to , Devi evitare anche le bott 

i che roto i. a no dall* Linee s 

uperio r i s a l v a n d o e o s i •' La vita 

i i 

é £• 10 P R I NT "Spoetati a destra e 
a sinistra c o n i tasti S 

& ©®a Lta col tasto l " : 
R ET LJ P M 

3700 PRINT PT 6,0;"D'ora in poi 
appari r a n n o & u L l o scher tu o dei p 
u n ti rossi dovrete c a t t u 

r«r Li pe r fare punti." 

£710 PRI NT ' 1 X n questo schsr rn o n o 
n potete t ornare a I. La Linea d 

i base.": RETURN 

280® RPINT PT 6,0; "Coinè sa Li te. 
i. e L i n e e sotto sveni s cono 

se cadete siete finiti.": 

RN 

300 PftlNT 
a ve locita 
3000 PRINT 
o in alt o 
.sono Lete 
99Ò0 RETUR 
9901 1NK 0 


PT 10.0; "Aumento de L L 

... Cip"Tl IDN 

pt 10 J0T " 3 uLLo s che rm 
appaiono degli aculei 
Li.": RETURN 
N 

PPPER 7: BORDER 7 
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VIPE OUT 


lessuna collezione di computer games può’ considerarsi 
completa senza un programma del tipo "bomber”. E’ questa una 
versione migliorata rispetto a quelle abituali in quanto 
piu’ realistica ed avvincente. Ecco come si presenta lo 
scenario alla fine del gioco: 



Il meccanismo e’ lo stesso trattandosi di radere al suolo 
l’intera citta' bombardando ad uno ad uno i grattacieli per 
poter atterrare sulla pista lasciata libera. Le bombe 
vengono sganciate per mezzo del tasto "H". 


10 PAPER 0: 


ORDER ^ 


CLS 


& 

G 



:è 

.0: 

0 


èi 


T 

CHR( c +n,x 


40 READ x: POKE USR 
60 NE XT n : NEXT C 

7§ bÌ"ÌN^*S¥ 9,6.; INK b; m #**y 
E - 0 UT ** * - H per sganciare lab 
b a. Radete al suo L o La c 1 t t 

con Le bombe H per poter atte 
a r ^ 1 iberamente.; RT 1 6 , w .; BRI 

fi; INK Sj "DIFFICOLTA ' T (1-7) 
INPUT D : LEf D »"7 — D 
©0 pfipER 0; GL® BORDER 0 
90 LET a. - - 1 
100 POR a=6 TO SS 

110 INK 1 + INT ( PND *7 j : PAPER 


IP 
o rn 
a " 
r r 
GM 


1 + 
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INT (RND#?) : LET q»U + INT (RND#9 ) 
120 PftXWT RT q. ., a ; PRPER 0; "O": 

FOR b=q + l TO SÌ: PRINT RT b,a.;"R 
" : NEXT b 

ìtS PoR T ati TO ai 

150 PAPER O: INK 1+ INT (RND*7) 

16GJ L. ET b p » ( ai - a > 

170 EOR fessa© TO 1 STEP 1 
1S0 PRINT RT a., b; "OP8" : BEEP .0 
1 , bp 

19© FOR L«0 TO d 
S00 LET s ss* +a* ( INKEY*s"h 


. GO SUB 390 
210 NEXT l 
220 IP SCREEN* 

N GO TO 160 
230 PRINT RT « ,b : 
NEXT b: PR1NT 

Mgyt jsi 

DhTR 4. , 4 , 4 , 0 


D 4. i 

g§L 

S60 


( a fo — 1 ) < > “ 
»» 

rt a , l j 


:i + ( s ss i 

" THE 


iSWW u*’ ri I 1-1 "T‘ i H* j H** J KJ 

2 70 RE3TORÉ SBÓ : FOR assi TO 4 

READ X: BEEP „ S6ft C 1+a ft ( « «4. ) ) , X 
NEXT a 

280 PRINT RT 21,0; FLASH 1; INK 

3; PAPER 5: "PUNTI: " ; be; : PAUSE 
300 

290 PRPEP 0: FOR a»20 TO 0 STEP 


Sii 


10 PRINT RT a + i , a + 1 J " " : RT a, 

a: INK 14-INT (RND*6) ; fl OP" 

010 NgXT t: ÓO TO 70 

“ Il THEN RETURN IF le 

e s» a +1 


320 IF 


1 THEN L, 


I- 


10 IF sai THEN LET e«lf2-(a>20) 
340 1F Sai THEN LET h=b+2: IF S 

sf£ 4 hen s return 

360 PRINT RT * - 1,hj " " ; AT tt , h : " 

BEER . 006., SI-e : LET e a®+1 
370 IF SCREEN# (e , h) •? > " " THEN 

GO TO 390 

3 ©0 IF e <21 THEN RETURN : IF «> 
ai THEN LET -£«2 1: GO TO 400 
390 LET btabe+10 
400 IF e>21 THEN LET «agl 
410 PRINT RT e -1 , h PRPER 0;" 11 

: FOP n*7 TO 0 STEP -1 
420 PRINT RT *,h; INK n 
EP ,02,0-12 
430 NEXT n 

440 LET ftss-1 : LET d ad *2 
450 PRINT RT a . b-2.; " 

460 DATA 0,0 0,-6, -55 , -B , 0 

470 RE5TORÉ 460: INK 2 
4é0 FOR ria 10 TO 90 STEP 
T b*S, (21-a) *S : DRRU 20,,n : NEXT n 
490 PRINT RT 11., 10.; PRPER 6; IN 
K 1 : " PIJNT I : " ; bft 
E-0 0 STOP 

510 GO SUB 410: GO TO 510 


P" : BE 
RETURN 

i 

10: PL..C 
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BIRDS 


Scritto da Bell Pellinacci,e' un gioco In cui siete 
chiamati a difendere il pianeta dalle orde degli alieni 
alati che scendono dall'alto. Uno alla volta gli alieni 
calano sopra di voi sgangiando gabbie bianche che vanno 
considerate alla stregua di bombe. Le gabbie che riescono a 
depositarsi al suolo,lo coprono e se lo fanno per intero,la 
gara termina. Le gabbie hanno un terzo ruolo che lasciamo a 
voi scoprire. 

Per controllare il movimento della base,usate i tasti "Z" 
(sinistra) e "X” (destra), per sparare,il tasto "Space". 
Ogni alieno colpito vi frutterà’ 25 punti se in prima fila, 
50 se nelle file dietro. Fate attenzione che se lo ferite 
solamente ad una ala,riappare all’istante. Partite con tre 
basi munite di laser perdendone una ogni qualvolta rimanete 
colpiti o da un alieno o da una gabbia. Il numero delle basi 
a vostra disposizione appare nella parte alta dello schermo 
assieme al punteggio e al record da battere. Per ogni tre 
ondate di invasori distrutti, vi viene regalata una base, ma 
ogni volta le difficolta’ sia sottoforma di velocita' che 
come numero di gabbie in gioco,aumentano. 

Dopo ore di pratica, l’autore Bell, e’ riuscito a 
raggiungere 12000 punti. Il programma e’ scritto interamente 
in BASIC ad eccezione di una routine in linguaggio macchina 
locata all’indirizzo 32500. Eccovi il disassemblato: 


32500 LD HL.704 
32503 LD DE,22528 
32506 LD BC,32 

32509 PUSH HL 

32510 ADD HL.DE 

32511 DEC HL 

32512 LD A,(HL) 

32513 CP 126 
32515 JR Z ,32539 

32517 POP HL 

32518 DEC HL 

32519 LD A,H 

32520 OR L 

32521 JR BZ,32509 
32523 LD HL,23263 
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32526 LD B,32 

32528 LD A,(HL> 

32529 CP 126 

32531 JR HZ,32538 

32533 DEC HL 

32534 DJHZ 32528 

32536 LD C,0 

32538 RET 

32539 LD <HL>,70 

32541 ADD HL,BC 

32542 LD <HL),126 

32544 JR 32517 

La routine in linguaggio macchina viene rilocata 
automaticamente per mezzo delle linee 90,317,412 e 7020. 
Essa dispone la posizione di ogni gabbia facendola scendere 
ogni volta di un passo e verifica se la superficie del 
pianeta sia interamente coperta o meno. Il risultato di tale 
verifica comporta il ritorno al BASIC per mezzo della linea 
317. Battete quindi il programma e registratelo prima di 
farlo girare in modo che parta automaticamente al momento 
del caricamento. 


10 RRNDOMIZE : 
fi® PRINT Pii 0,© 
K 6 ; S : RETURN 

30 L..ET BC*BC + ( I 
C <27) - < INKEY « a" T " 
NT . PlT PRPE 

W 36 IP INKEY 01 < > " 
4.0 GQ TO 630 
60 POR X»1 TO 3 
è& IP L ( X , V ')<■>- 
(X ,Y ) : LET CI* C (X 
LET L2=X: RETURN 
70 NE XT Y : NE XT 

ET ^0 r VoR X * fi 0 TO 
STEP -1: PRINT RT 
7 ; " " : BEEP .001, 

X.BC+2; PAPER 0:" 
Nt RT x , BC+a.i INK 

RETURN 


(30 TO 90 

-LEN STR* S.; IN 

NKEY|e"X" AND B 
AND BC>0? : P BI 
R © ; INK ©; " EtF 

•' THEN RETURN 

F O R Y * 1 T O 10 
1 THEN LET L1»L 

, Y J : LET CS*Y: 

X: L. ET UF-1: R 

7+1NT (RND*10) 
X.BC+fi; PAPER 
40-X : PRINT RT 

" : NE XT X: PRI 

© ; PAPER 7" “ 


90 

CLEAR 

96 

BORDER 

P ?S§ 

INK 4: 

. 3 © i 

INK S; 

105 

GO SUB 

107 

L ET H S 

1 10 

GO SU© 


33499 


6 : PRPER 


BRIGHI 1: 
•• 000000 " 
7000 : GO 
*0 

3000: LET 


0: CLS : 60 

PRINT RT 0 
SUB 9000 
BC*13: LET 
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S *0 
ISO 




300 

305 

a a.0 
330 
( B + ~ 

23 
~»3 


_T 

DIM 

FOR 

FQR 


LEI 

0 .±i 


M 

PI 


XT 
XT 
INT 


Et a 3 : LET WW*0 

ss ® 

HF «0 
BFF *0 
UF =0 
L (0,10) : 

B*0 TO 3 
R*0 TO a 
L(B+lifl+1)BB*a+l 

Sfl*3 + 1 


DIM 0(3,10) 


L. ET C 


©.; 1NK 5; " 
" ; RT 0 
3 

10: PRIMT 
NEXT R 


000000 
, 17;LB 


RT 


( e 


r RT 0 

0 

Bel TO 
360 FOR Rei TO 
,fl) <C ; “CD" 

355 NEXT B 
3§0 LET BHo0 

3§0 FOR K a1 TO INT (RND#1B + 1) 
300 LET Bel NT (RND*3+1) : L. ET R* 
INT (RND#10+1) 

m KiW 8 *? 1 CTè.SP'g<8 ?rT?-84B 

BEEP .01,-10: PRINT RT L ( B , R ) , 
BEEP .01,5 

3l£ IF RND>.6 f HEN II* gTTR (33, 
BC+2) « 136 THEN OO SU© 30 
315 XP INKBY*<>"" THEN OO SUB 3 

317 IF NOT USR 33500 THEN OO TO 
4.000 

316 IF RTTR (21,80+1)*136 OR RT 
TP (21,80+2)*126 OR RTTR (21,80+ 
3)«136 THEN OO TO 1000 

^F X ©H^30 THEN OO 
THÉN OO TO 4.05 



SU© 5 0 


IF 


340 IF WF * 1 THEN OO TO 3000 
400 LET L3*INT ( RND #3 + 1) : LET C 
3eINT (RND*10+1) 

403 LET L1 «L (L2,02) : LET 01*0 (L 
2 , 02 ) 

4©4 IF LI*-1 THEN OO TO 40© 

405 PRINT RT Ll.ClJ" 

406 LET CD*INT (RND*3-1) 

410 PRINT RT LI,Gl; OUER 1;"CD" 

PRINT OUER 1; 


BEEP .001,LI+30: 

RT LI,CI : "CO" 

411 ±F RND>.© THEN IF 
PRINT RT Ll+l,Cl! INK 


LI >6 THEN 
© ; PRPER 

« i i il 

'à.13 LET ZZaUSR 33500: IF INKEYf 
<>"" THEN OO SUB 30: IF HP*1 THE 
N LET HF*0 : OO TO 330 
413 IF RTTR (21,80+1)*126 OR RT 

5f.llà'?^ , |è 2 ?o°?0§5 TR <21 ' 8Ct 

' “ Clsfil+CD: IF CI*33 THEN 


41 

L 

4 16 


LE". 

T 0 1*0 
IF Ola 


1 THEN LET 0.1*3© 


41© IF RND>.66 THEN LET CDaINT 


25 



jjff 


IF RND>.© THE 
L 1 a L 1 - fi 

XF Lloai THEN 


f R M D * 3 ~ 1 ) 

419 IF l,JU > ~3 TH 
M IF LI>0 THEN L 
4-30 LET LlsLl + 1 
DO TO 410 
425 IF ClsBC+1 OR ClaBC+2 THEN 
LET BFFal: OO TO 1000 
430 PRIWT AT L(LS,C£) C ( L 
"RB": DO TO 390 


.3,03) 


520 PLOT 


.BC*0+S0 ,© : DPRU 

PRPER 0,0,138: PLOT OUER 
+30,S: DPRU OUER 1,0,133 
S30 IF BC+a«Cl OR BÒ+laCl 
G 5 TO 810 

B4-0 IF 3CREEN* (B,BC+S) 

EN PRINT RT 8,60+1;" 


INK 3, 
1 , BC*8 

THEN 

" '• TH 

LET Sa 


LI ,CIj INK 7 ; "KL"J 
LET Cla- l : LET LI 

„ . , -Eg ,0g,-30: LET L (LS,C2U 

-1 : L-Ef 3*5+50 : GO SUB 20 
630 LET HF*1: LET BH*BH+1: RETU 
RN 

1000 REM BANG 

1010 FOR Val TO 4: FDP 2-1 



*-1 


TO 10 

SÈEP . 015720-2 : PRÌNT RT 31,BC 
INK RND*?; " HIJ" : N EXT Z 

-- FOR Za 10 TO 1 ST“. 

“ Z: NEXT Z: N 


10 30 
. 016,30 

1030 LET LBaLB 
INK 3:LB 

ìki IP 

T O 4- 3 0 
1050 GO TO 415 
1060 PRINT RT 0 
7; FLASH 1;LB 
10?0 FOR X a 1 TO 


1 


:p 

:xt 


PRINT RT 


©EEP 

0,17.; 


a 0 THEN OO TO 1060 
F«1 THEN LET BFF a0 : GO 


17.; INK lj PRPER 
30: PRINT RT X,0 
©EEP .36,30 


:P .36 
>R I NT 
FIN ITR 
:xr X 

©EEP .36 


Af ' 


'• : NEXT X 
1080 BÉEP .2,50 
1090 POP X-l TO 
0 ; INK X ; " GRRR 
flRR FIN IT R " : N 

1100 ©EEP >3,8jB: cp jr » «s ca , 
1370 IF 5>H5 THEN LET HS»S 
1380 PRINT RT 0,32-LEN STRÉ 
INK 6 : HS 
1390 IF S «HS 
POR X«30 TO 
1 ,X : NEXT 
1300 FOR 
NEXT X 
1305 FOR 
NEXT X 

TO 300 

gggg 


X+7 


30 


HS; 


X «0 

X a 0 


THEN POR Z a1 TO 6: 
30 STEP —fi : BEEP .0 
NEXT Z 

BEEP .006,30 


TO 

TO 


30 
3 0 : 


BEEP .006,0: 


1310 FOR X a 1 
DER 6: C L- S 
è , 36 ; INK 6 


STRI HS: INK 
14.00 STOP 
3000 REM ONDATA 


6HS 


:r 

10 


NEXT X : BOP 
0: PRINT RT 
RT JJJ , 52-LEN 


ÒO TO Ì10 


DISTRUTTA 
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52010 FDP X*1 TO 
X 


! 0 


P P I NT PT X , 0 


*• : N 
2020 F 

fi , a xnk 


E XT X 
OR X = 1 


TO 7: PR1NT PT 3+X* 
ON D PT P DISTPUTTP 


52030 NEXT X 
204.0 PAUSE 130: 
X * - 3 1 


BEEP .52.30: POR 
BEEP 


0 


, TO 36 : BEEP . 0 1 , X : _.. 

Ì 0 éÌ é ÉoÉ 2 E xIi"‘" , to B lÌ l f f^rìn? pt x .0 

• Il 

": NEXT X 
a 0 e 0 l e t u ui « u u +1 

SR&ER 6 : PAPER 0 
' P X NT PT 0.90 5 


I F U U = 3 T H E N 6 
fcLS BORDER 0 
XNK 6 ; "000000 


PT 0,32-LE N STRI M 3 X N K S ;, M S 


EEP ,2,10: 

B + 1 

*370 OQ TQ 
100 pì;m TXT 
.ST OPE 


BEEP .fi 


te 


10: LET LB=L 


T O 120 

-1 T JTÒLO 


^ 100 
3040 READ Y 
30S0 READ X 
0 3020 
3060 PEPO Y 
0 


33 00 

IF X=999 THEN SO TO 


PLOT 
IF X: 


X Y 

9 9 9 T FI E N 


G O T 


3110 PRINT PT 


3130 PRINT 


n « « w * 


D R P U X 

.i V : 

G O 

TO 3©3 

10,4; 
1963 " 

IN K 

pr t • 

1 ' © N E X 

13 , '? ; 
O L L. 

¥■>«■ 

i ra! I 

PAPER 

13 , a ; 

H U O N * ■ 

XNK 
. S X N 

6 
■ i 

11 «r 

17,2 ; 

XNK 

DEST 

,65 

a i v- 

N « * H 


H u a N 


3150 PRINT 


PT 19, fi; XNK © 

... SPARO" 

PT 91,85 X NK » 

X A : 


< S P P C 

PAPER 


7; "UN TP ST O Q UAL. SIASI " 

3160 XNK '7 : PLOT fi.fi: DRPU 0,, 68: 

ORALI 53,0: PLOT 176,70: DRPU 77 
, 0 : DRPU' 0 , -66 : DRPU -43 .0 : PLOT 
' fi , 52 : DPPU 537 ,0 

3163 XNK fi: PLOT 0,63: DPPU 5233, 
0: DPPU 0.16: DPPU -255,0: DPPU 

0,-16 

3170 XNK 4 
3200 FOR 
E P ,01 ,X 
AUSE 0 _ 

3910 FOR 

. I i 

“ : NEXT X 
3 fi 520 RETURN 
3400 RETURN 

3300 DATA 33,110,0,36.30,-14, -30 
,- 14 , 30 ,- 14 ,- 30 ,- 14,-999 

É!II S$4 4SéV78*:$8?-n.,-3 

0,-14,30,-a©,-999 


4 

X = 30 TO -30 STEP 
SÉEP .01,-X: NE) 

- 1 : 

teE 

■5T X 

P 

X ss 1 TO 21: PP XNT 

PT > 

< , 0 
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3530 DATA 151,110,0 , SS , 30 -86 , -3 

0 i — 9 8 •— 9 9 9 

354.0 DflTH 186,110,30,88,-30,0,30 

•a A “ “ ~ 


•999 

ORl^R 999 


P ,S5, 


rtterrrgg: 

CO 

.9,3: 

BEE 

EP . 

Z * 1 T O 

93 


X = 1 TO 

3 : 

FOR 


16 , - 1 


BCC 


•' * 1 T O 10 
4.04.0 XF L(X,¥) <0 OR L ( X , V ) >20 TH 
S W GO TO 4080 

40B0 PRINT RT L (X,V) ,C(X,Y> ; XNK 
3 \“ " : L ET L!X,Y) bL(X,Y) +1: PR 

XNT RT LtX.Y) , C ( X , Y ) ; XNK 3; "CD" 


NI EXT X 


40?0 NEXT Z 
4080 FDR Z=S0 TO -30 STEP -3: BE 
EP .01,2: BEEP ,01,2*1,5: BEEP . 
01,-Z+lg: NEXT Z 

40R0 BEEP „15,-5: BEEP .18,-10: 

E5E© P .13,1 

409® FDR R » 1 TO © 

4100 FQR 2=1 TO 19 5TEP 9: PRINT 
RT 2,0: XNK RND*6+1:" RTT 

EPRRGGlO RUUENUTO ": BEEP .0 

1,2*2: NEXT Z 

4105 NEXT R 
4300 BEEP 8,-10 
4300 GO TO 1060 
4900 SfOP 

7000 6em m .'•■ c 

7090 RE5TORE 7030: POR R=1 TO 4© 
PERO B: POKE 39499+R.B: NEXT R 
7030 C'RTR 33,199,3,17,0,88,1,38 , 
0,999,86,43,19© ,9©4,19© ,40,99 
7040 ORTR 9 ai S , 43,194 , lSl , 38,949 
7060 ORTR 33,233,90,6,32,136,254 

É0Ì 1 Ì4?7S;:I 4 'é4,196,94, 

Og7 

6000 RETURN 

9000 FOR 0=0 TO 96: REftD B: POKE 
IJSR '‘ R " ■+• C , B : NEXT C 
9010 ORTR 192,113,26,7,1,9,9,0 
9090 ORTR 3,142,86,224,136,64,64 


903 

904 
, 0 


ORTR 0,1,9,7,26,114,196,0 
ORTR 0,1.9© , ©4,994,152,7© , 3© 

9050 ORTR 0,0,0,0,4,14,31.888 

ORTR 8,8,26,28,62,127,§55,2 

9070 ORTR 0,0,0,0,16,68,252,255 
9080 ORTR 0,2,0,0,16,8,0,255 
9CJ90 ORTR ©,0,49,196,49,901,34,9 

9100 ORTR 0,39,0,186,36,13©,0,96© 
9110 ORTR 199.79,9,1©,130,8,©4,1 
33 

9 190 ORTR 199.1© ,©4.9 ,©4,16,8,16 1 
9300 RETURN 
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Bene,ed ora vediamo le funzioni di ogni singola parte del 
programma : 

10: salta le routines che seguono per ottenere una 
maggiore velocita' 

20: subroutine per scrivere il punteggio 

30: muove la base laser. Se viene premuto il tasto 

*’space",il controllo va alla linea 520 

50: inizio della subroutine richiamata ogniqualvolta 
siano rimasti pochi alieni. Loca la posizione del primo e 
lo predispone per la discesa. Se non ne sono rimasti, VF 
e’ mandata a 1 per chiedere al loop principale cosa sia 
accaduto. 

80: subroutine addizionale di “azzardo” 

90: prepara il posto per il codice macchina 
110: inizializzazione del game 
120-160: inizializzazione dell'ondata 
200-235: predispone gli alieni alati 
240-255: display degli alieni 

290-320: permette agli alieni rimasti di volare random 
317: verifica se c'e' una linea intera di gabbie e le 
scrolla verso il basso 

318: verifica la collisione tra una gabbia e la base 
330: seleziona l'alieno successivo senza ricorrere alla 
routine random, vedere la subroutine 50 
340: verifica la fine dell’ondata 

400-404: seleziona gli alieni in modo random, dopo aver 
visto se ce ne sono ancora 
410-420: loop principale 
411: caduta delle gabbie 

419: se l'alieno viene sostituito,può' spostarsi verso 
l'alto 

520: routine di sparo 
610-620: alieno centrato 

1000-1050: routine svolta quando la base viene colpita 
1060-1310: routine di fine gara 

2000-2070: routine di fine attacco da parte dell'ondata 
2060: partenza delle ondate variabili 
3000-3210: routine di presentazione 
3500-3700: dati per la presentazione 

4000-4300: routine chiamata nel caso in cui il pianeta sia 
stato ricoperto interamente dalle gabbie;ciò' causa la 
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variazione del colore degli alieni e il loro rallentamento 
nello scendere 

7020: POKA il codice macchina 
7030-7060: dati per codice macchina 
9000: predispone i caratteri UDG 
9010-9120: dati per i caratteri grafici 
Infine l'elenco delle variabili principali usate nel corso 
del programma: 

HS - Record 

BC - posizione della base 
S - punteggio 
LB - basi rimaste 
W - numero delle ondate 
HF - flag d'urto (l=si,0=no> 

VF - flag di fine ondata (l=si,0=no> 

L(3,10),C(3,10) - posizione dei 30 alieni alati 
BH - numero degli alieni colpiti 
LI,CI - posizione dei birdman in discesa 
CD - direzione orizzontale degli alieni 
Come può’ succedere anche per il resto dei programmi 
pubblicati in questo libro, e’ possibile variare qualche 
parametro a seconda dei gusti. Ad esempio, i numeri random 
sono suscettibili di cambiamento per aumentare o diminuire 
le probabilità’ dei vari eventi (vedi le linee 411 e 419), 
e cosi’ pure le caratteristiche dello schermo. 
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CHOPPER SQUAD 


Il prossimo gioco,messo a punto da Malcom Young ed il cui 
vero nome e’ "Action”, vi pone alla guida di un elicottero 
da ricerca in volo attraverso un campo di battaglia. Il 
vostro scopo principale e* quello di salvare piu’ soldati 
possibile prima di rimanere senza carburante. L'operazione 
di salvataggio la potete eseguire atterrando direttamente su 
di loro,ciò' che vi frutterà’ 50 punti, oppure usando la 
scaletta dopo esservi portati esattamente due spazi al 
disopra e aver premuto il tasto "1”. In questo secondo caso 
i punti guadagnati sono solo 25. La scaletta vi serve anche 
per abbattere gli alberi sottostanti,ma state attenti che 
cosi’ facendo vi scoprite al fuoco nemico proveniente dalle 
jeep che passano sotto. Tali jeep, a loro volta, possono 
essere obiettivo delle bombe che voi potete sganciare sempre 
con l’”l" e solo quando siete in volo. Alla pressione del 
tasto, e' lo stesso programma che riconosce se intendete 
salvare il soldato oppure bombardare. Se,dopo aver prelevato 
1'omino,riuscite a metterlo nell’ambulanza nera, guadagnate 
un premio supplementare di 100 punti. 

Per aggiungere interesse al tutto, ogni tanto la parte 
bassa dello schermo e' attraversata da una autobotte: nel 
caso in cui riusciate a colpirla, per voi ci sono 20 unita’ 
di carburante piu’ 10 punti. 

La gara ha termine quando rimanete senza benzina oppure 
quando avete terminato tutte le prove. Alla fine del 
programma c’e’ anche un "Albo dei successi" che presenta i 
primi cinque classificati con i migliori punteggi. 


S GO SUB B60 

10 REM a *R bsB 

qs=G h*H i = I „i *U 

0=0 p a P 

ffl0 DIM » * < 6 
30 LET tr=0 
0 : LET 6Ca0: 

SS 3 

3'at 

RIO HT 


LS 


K sa K 


d 

I 


«D 


i» as |~ f ss F" 

m « m n »N 


X0 ): DIM h(S) 

LET £ f s*0 : LET d p - 
E'T p K. «0 : LET l i V e £ 


L. ET a 
a 11 D C " 


BORI 

DE 

R 


7 

PAPE 

R 

: 

INK 0 : E 

è : 

LET 

c 

.j 

L 

e 

cs 

0 

LET 

i. r 

1 « 10 

0: LET f 

; slj 

SORDE 

R 


3 

PAPE 

R 

B : 

IM K 0 : C 

LET 

Hi 

* 

ss 

l • . 

FE" : L. 

ET 

• r % 

a:" H G ' * : 

m » • ■ 

ij i 

i i 



L ET J « 

SS ' 

' « B ' ' 

LET P 5* 

: LI 

ET 


t 

* 

ss ’• IP t " 
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PRINT PAPER 


14-0 POR g«ll TO 31: 

© ; fiT g , 0 : 

": WEXT O 

160 POR t TO 3 3.: PAPER 6: LET 
f «INT ( RW0*4-) : PRINT INK fi ; RT 1 
B - r , t. 1 ’ M 11 INK 4. .; RT 16-r . t ; ‘ 1 L " : 

ne yt t. 

160 LET 4*1 NT (RND#10) +1: L. ET X 


a I NT 
') 70 


(RND#30) 


:h=i.:RT 11 


a _* 1 
a 


5 Pi INT PAPE 
RT 0,0;"FUE 
"PUNTI*" ; * c 


fi •“** 3- ‘ 11 M 

; INK 2-2*PK; AT 11 a ; ' 5 ' 

1TB LET fut Ufue l-l: 

R 0; INK '7; BRÌGHT li 
L. » " ; f u e l ; " " ; AT 0 ,10 ; 

RT 0,20; "LIME Live* 

178 IF fusi. <0 THÈN GO TO 1000 
130 LET a«a+0.6 AND <«<30) : IF 
LET p k *a 

. _ OUER 0 ; RT 4 . x; " 

IF 4 «11 AND X +1 aa TMEN LET 
S-c=» C +60 : LET pk-0: BEEP .6,-6 
200 LET 4 «4 + (INKET$ « "©" ) - rINKEY 
* *"? M ) : LÈT x «X + (INKEY* » " S M ) - CÌN 


NGT a THEN 
190 PRINT 


19 1 


KEYSj*s"6" > 

001 *. ti» 1 , <11 THEN 


ET X «X + < INKEY 
( 4 >21) : LET X 
C > 4 .0 
C < > 4- 

)00 

'É. R“t 

I. 


IP 4 _ _ 

* «"0") - (INKEY* «"6") 

3 .10 LET y *y + ( u < 0 ) - 
= :k + ( x < 0 1 - ( x > 3 0 i 
220 LET CsfifTR ( 4 .X> : IF 

AND C < >48 THEN GO TO 1000 
230 LET c sATTR t 4 , X +1) : IF 

0 AND C< >4.® THEN GO TO 1000 
S4-0 FftlNT OUER 0 ; RT 
P .1,-10: PRINT OUER 
r « 

2 4.6 IF RMD < . 3 AND NOT Pk THEN 

ET «. f » 1 

S4-6 IF Sf THEN GO SU© 420+dP 

1360 IF AND < . 6 THEN LET ...i f = 1 

960 GO TO J r“ * l. n+170 

9 70 LET 4 « 16 + INT (RND«4) + 1 

280 LET I. n a 160 

3 90 LET JdssRNO: LET .i d « ( .i d > . © J - 
r i cl *Fi ì 

'00©" LÈT q. $ *p SS AND jd =1 : LET q $ « 

q|+ < J * AND Jds-1) : IF R N D < ,333 T 

HEN LET trai 

306 IF trai THEN LET q * a ( t «Si C 3 T 

O 1 AND ,idsl) + (t$( TO 9) AND ,j d * 

- 1 ) 

. i d * — 3. 

' J4 " 


3 1 0 

L ET J 

x «30 

R N D 

390 

PRINT 

INK 

0 ; RT 

•*3» O K7 

PP I NT 

INK 

1 ; RT 

3 .3 0 

LET J 

X 53 , j X ■f 1 

. j d 

3 4-0 

IF JX 

80 ' OR 

. i X * 

«100 

: L ET 

t r «0 

‘ LE 


,i 4 


...i x 


q S5 


. THEN LET I. 
n « 100 : LET t r =0 : LET ..i f «0 : PR INT 
P R P E Fi © ; RT . i 4 , 0 ; " 

.•• : GO TO 170 

360 IF u •; 10 AND INKEY*»" 1" THEN 
G D T O S 10 

360 IF trai OR NOT ( J X » alNT X -1 
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J X < * X + 1 il TMEN OO TQ 1 70 
Let e « y •+• l : r OR f *.iu ... x fo e 
LE? b a» RT"f' R (/ ,1x+l) : IF 


1 

b*40 OR b*4® THEN 
IWK 2.;AT f .jx+1 
PRIWT INK 0.;A 


RT 


PR iPAPER © 
" . " : BEEP . 1 , f 

f , J X + 1 ; *• " : NÉX 



4-4• 0 


360 PRINT INK 0 j RT f , jx+1; " •• 

390 1F ( .j X + X «x + 1 OR .i x + X ssx ) AND 

f=y THEN BEEP X..-®: GO TO 1000 
Gì Q T O 17 0 

REM Trasport o % o Ldati 
L6T SdXwINT (RND*30)+1: LET 
Sdysia+INT (RND#S): LET dp»l@: 
L-STL t ■ INT (RNf>*&0) +10 

» P ^Ì 8 T 0 1 f ' * 1 ' RT s d y ' * d x 1 " N " '■ 

L. ET ~ i ■ t - 1 : PAI NT RT » d u , ft d X 

: IF MOT +. THEN LET sf#0: LE 

T dP «®: RETURN 

450 IF y*Sdy AND X +:l.»Sd X THEN L. 
ET S C■!C +80 : BEEP 1,5 : LET % f =0 : 
LET d p se0 : LET P k. » X : RETURN 
450 IF INKEV * < > ’* 1 " THEN RETIJRN 
470 PR INT RT y + 1 , X + X “ K " ; RT y + 9 
, X + 1" K " 

4B0 IF a dMsu+a AND adx=x+l THEN 
FOR rii*y+2 TO y STEP - :l : PRINT R 
T M , X f 1 / " N “ : BEEP - 3,0 : PR INT RT 
rn . X+lj" " : NEXT rii: LET pkal 


T a £ a® _LET d p a0 : LET » c «» C + 25 


LE 


RT y + X , x + X 


•• RT y + 2 


490 PRINT 

, x +1 ; " 

500' RETURN 

51® LET 6».jy : FOR f»y+l TO e: L 

ET b » ATT R (Lx + 1) : IF b»4® OR b* 

4® THEN PRINT PAPER ©; INK 2 ; RT 
f , X + X " O " ; OHRJf ® : ©EÉP , 1,30 - f : 

PftINT INK 0; RT f , x +1 ; “ " : NEXT f 

90 TO 530 
520 PRINT 
530 IF 
J.CsSC+10 
li : PR INI' RT jy 
X *0 : GO TO 340 
54® GO TO Ì7® 


W O W 

NT INK ®RT f jX+1; " " 

b *49 THEN BEEP 1,-5: LET 
® : L ET f u ® i. * f‘ u a •. + 20* ( t r a 


,.i X 


LET 


60 REM 
570 RE STO RE: 
©60 DATA "a‘ 
219,94 
69® DATA "b* 
9x9 24 
500 DATA *• c 1 
8,19®,219,24 
6X0 DATA "d‘ 
95,1X9,24 
620 DATA “e.' 
27,36,12© 

©30 DATA " f 
0,0 

OPTA "g‘ 
DATA ”h' 


1,1,1,255,253,195, 

16,124,8,63,©3,195 

12©,126,12©,965,25 

48,12,10,252,252,1 

®,X©,124,254,255,X 

©,0,192,199,255,1, 

25®,0,©,0,0,O,®,0 
7,0,0,0,0,0,0,0 
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©e-© DRTfl ■■ i 
19 © , ©19,ai 
©70 DRTA " J 
53 , 195; 219,24 
£.3 0 DATA " k 


126 ; 9 7 , ©'7 .. ©53 -, 355 ., 


84,56 

690 DATP " I- " 
©3 ; e® , 176 
■7*00 OATfl " m " 


700 DATA " m " .,3 6.. 

16.16 

710 DATA "n",152 

pft , (ta-,4. 

720 DATA "O" ,231 

©6,60,24 

730 DATA "PMSe 

S, 196,90 ©4- 


" J " , 256 ., ©3® , 1®© , 339 ; S5 
©4- 

k " ., 16 ., 16 16 16 ; 16 ; 16 ; 

" L " ., 13© , 73 ., 1 13 ; 18© , 114- 

" m " ., 36 ., 36 ; 24 ., 16 ., 16 ., 16 ; 
"n " ; 153 ; 90 ; 76 ., ©6 ; © ©0 ., 

" G " ., ©3 1 ; 126 ., ©4- ,24,60 ; 1 

■■ P " ., 126 ., ©66 ; ©6© ; 286 ., ©6 


970 POR C=1 TO 16: READ C* 

980 POR ®»0 TO 7: READ n: POKE 
LI S R C * + « J n : NEXT £ 

990 NEXt C 
998 RETURN 


*■ * ( 


996 RETURN 

100® RRINT INK ©.; FLASH 1 ; AT y , H 
; " | . L... " : BEEP 14 

1010 PRINT XNK 0; FLASH 0.1 PRPER 
© : RT y , K LET y»INT <RND*1 

0 ) + 1 : L. ET X = INT < R ND *30) 

10 © 0 L. ET liV®S»LiVt*-l 

1025 IF fuel<l THEN PRINT FLASH 

1 "CARBURANTE F^N | JCji^ , E " L_fi FINE 

1030 IF l ivtti THEN GO TO 170 
104.0 IF *C<h(6) THEN GO TO 1200 
1060 input "Batti i i. tuo nome pe 
r i. a t a v o t. a dei p u riti " , n Ss 
1060 FOR r s=S TO 1 STEP -i: BEEP 
. 1 ., r : IF s c > h ( r ) THEN NEXT r 
1070 FOR gmB TO r+© STEP -1: BEE 
P 4;9 : LET h (g) *h (fl-l) : LET ft * ( 
9)-4*59-1): NEXT Q 

1030 L. ET h 5 9 ) =it : LET S # (q ) sii t 
1090 BOPDER 1: PPPER ©: IN K 7: B 
RIOHT 1: CLS 

lli0 PRINT INK 5;AT 3,2;"CAMPION 
I DI OGGI" 

1120 FOR a al TO S: BEEP „S,«: PR 
INT INK 0 RT 7 +a , © s * < a ) " " ; h (a 

1200 E PRIWT FLASH 1; PRPER 4.; INK 
__ 0 RT 16 ., 3.; "UIJ0I GIOCARE ANCORA 

i©10 IF INKEYfs"n" OR INKEY|s"N" 
THEN GO TO 1240 

ìaSfi IF INREY*^" THEN GO TO 121 
0 

1©30 GO TO 30 

1240 BORDER 7; PAPER 7: INK 0: B 

Righi - èi : stop 
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SITARE 


Scritto da David Perry, "Snake" e* un game che richiede 
prontezza di riflessi e concentrazione. Vi si chiede 
infatti, di guidare il vostro serpente attraverso un 
giardino recintato ad alta tensione onde potergli far 
divorare i funghi che appaiono via via all'interno. Ad ogni 
fungo ingurgitato.il serpente aumenta in lunghezza, per cui 
dovrete stare bene attenti, oltre a non cozzare nella 
recinzione, anche a non mangiarvi la coda. Sia nel primo che 
nel secondo caso,la gara ha termine. 

Ecco il serpente in azione: 
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1 


0 PRINT 

'o Ryyjrr 
0 


110 PRI NT RT 14 , l;"Tìì ti 0,2,1, 
P per s u , g i u " , y : PR INT " s i n i Atri 
$ destre.Se divorate un": PRINT 


e 

n rospo 
PRXNT 

codR 


il. serpente si allunga" 
OCCHIO A NON URTARE LR 


! ••_ 

rèiummi 


13-0 PRINT " Q IL RECINTO! ! 
3jj&,,J£J5L&NT : pR INT INK 3.; " 

NT RT 10,©; INK I.:" OIFF 

12,il; INK I/S; " c 1 


ICOL.TR 

1@Ì0 PRINT RT 


-ih 

15S REM D i f fic o l t a ' 

1.60 LET R fi =s IN K E V & : IF A#*"" THE 
N LET Iwl+I: IF I>7 THEN LET 1*0 
170 |F R*<"1" OR R$>"9" THEN 00 

180 LET LaURL A* 

190 INK @ 

20® OQ TO 360 

205 rem caratteri definiti 

210 FOR R »1 TO B 

SS0 PERO R $ 

230 FOR N ss0 TO 7 
24.® READ 6 

Ili H 3 * R * +N ' B 

£70 NEXT R 

230 D RT R "fi" , 169,102,196,163,16 

3 lf ' *i*. ® , ©0 , .la© , 163 , £4,24 

’ 300 DATA "C" ,90,3©, 189,102,10S, 

1 8f " D " ,0,34,34. , 05 , SS , SS , 1 

3 & ,13© 

320 DATA "E",26,98,28,3,26,98,2 

8 É|§ b|TuSS*° 

350 LET B # » " P‘ " 

360 BORDER 7 
370 PAPER 7 
380 LET R«=0 
3§0 LET SC* 0 
400 CLS 

405 REM Predisposizione schermo 
4-10 PRINT RT 0,0; INK 1;""; INK 
S; " < SCORE : 0 >"; INK 1 ; " D > " ; INK 
2;"SNRKE"; INK 1;"< O " ; INK 4 ; ("< 
" AND HS< 1001 ; "MI-SCOPE : " ; MS; ("> 
" AND MS<1001 
4£0 FOR N*1 TO 20 
4-30 PRINT RT N.0; INK 1;"E 

E " 


4-4-0 NEXT N 



4-60 LiT X w 1 0 
4.70 LCT V *19 

- IT fi®» 17 *' 


g 


R M = 10 TO 3.9 
T R**fl*+"10"+STRÉ N 
©10 PRINT BRIGHT 1; XN K. 2 ; RT 10 
Ni. "fi" 

5g0 NEXT 
' ' .. ©00 


©30 G 
S40 L 


SU 


©41 


ET &*»INKEY* 


REM ingresso tasti e. r a 


©60 IP D ® « P " OR D|s"q" OR O * « " 
i OR DJ«"3:“ TMEN LET Bf=D* 

©60 LET X=X + (©*«■' z " ) - (£««" q” J 


©70 

LET Y«Y 

©80 

fltt 

IP X a»2 1 

§90 

IP Y«31 

©0 


600 

IP RTTR 

R Y « 

32 THEN 

610 

GO SUB 

è20 

L ET C * = 


»: X , V ) = 3.22 OR 


630 IP X<10 THE M LET C*« 
* X 
641 
6©( 


LET^pj aSTR®. Y 


IP 


0 THEN LET D** 


O 


+ STR 


+ STR 


©60 LET XI «URL R® C TO SU 

- ““ 1«URL R$(3 TO 4.) 

““ (XI., VI 5 <>122 THEN G 


Ili iP«¥+s 

O TO 700 
690 PRINT RT X1,Y1;" " 

?SÌ ? 6 SN?‘i»S 8 ST‘ 2 ? lt W s; *t x. 

y - • • pf •• 

■^10 LET R®«R®+C®+0« 

.720 IP R»0 THEN LET R®«R®(© TO 

J 7-3® l~ 


T R «R - t'R >0) 

74.0 GO TO ©4-0 
7©0 LET M «RTTR CX.Y) 

£60 IP Mi>©0 THEN RETURN 



LET R-R+L 
LET SO «SO 4L 


R INT RT 0,0; INK 5 < P U NT I 

. _ _ . • > " ; INK 1 ; "D > •' INK S ; "SN 
RK.E " ' INK 1: '■ < O “ INK 4,; " cREOORO 
: " ; H* I (."■>" AND H3<100) 

600 PRtNT PRPER 7; INK 4 ; RT INT 

(RND#lfi)+2,INT (RND*S9> +2; "B " 
©10 POR ri *!S0 TO -20 STEP -10: B 

EEP ,01, ri: NEXT ri 
820 RETURN 

830 LET X «X- (X=22 ) + (X*-l) 

840 LET V*Y- (V = 32) + (Yw-1) 
é©@ POR F«©0 TO -90 STEP -B: ©E 

EP ■ 02 i P : NEXT P 
©6© REM Pine d e I. I. a gara 
© © 0 IP © C>H S THEN LET MS« 3 C 
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MS 


170 


PP I NT 
PftINT 
I 


RT 10 j IO.; " RECORD : .1 

RT la ..il; "Premi un ta 


S®0 
Sto ! '' 

©90 LCT 1=0 
9®0 PRINT RT 
ep .0 1 , x * a 
9 0 B REM sta m p a il punteggio 
910 PRINT RT 0.6; INK I,; FLRSH 
l ; " >Hai fatto SC; ” punti. < 


X , Y INK I" C " 


BE 


920 LET OÈsINKEY % 


IF Q« « '■ " THE 
N LET 1 = 1 + 1: IF I > 7 THEN L.ET 1=0 

9S0 IF O*®* 1 ■■ THEN GO TO 900 

I »SE 

» « 


94-0 

9S0 


GO TO 30 
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DODGEHS 


E* un game veloce studiato da Raymond Blake in cui dovete 
guidare la vostra auto attraverso un circuito formato da 
quattro corsie concentriche nelle quali trovano posto delle 
bandierine. Il vostro passaggio attraverso a queste, 
permette l’incremento dei punti. Dovete pero’ cercare di 
evitare lo scontro con l’auto suicida pilotata dal computer 
la quale marcia nella direzione opposta. Potete cambiare 
corsia quante volte e come volete in coincidenza delle 
quattro aperture usando i tasti direzionali, mentre 
l’avversario può' cambiare corsia in ragione di una alla 
volta. Nonostante questo apparente vantaggio, la gara 
risulta assai difficile. 

Al vostro passaggio , le bandierine rosse vi danno punti e 
diventano gialle;per fare punti anche con le gialle,dovete 
intercettare la bandierina magenta,ma state attenti che 
cosi' facendo concedete al suicida il vantaggio di qualche 
mossa in piu'. Una volta investita la bandierina magenta, 
avrete un premio in punti e questa sparisce per ricomparire 
in un’altra parte del tracciato. Buona fortuna... 


^ n(0 

’ 30 

4.0 
RIOHT 


— — r% 

TO ? 
NEXT J 


XT i 
L 


JT 6 M? 

ÒRDER 0 

1 : CLS 


ET Ci*! 
>RPER < 


LET $ C «0 
IMK 7 ; B 


0 PRINT •' 

““timffìfINK a;"R*fig*R«R 
RRftft R&RRRRplRfllSlRR; INK 7j "ttt* 


70 PRINT "tttt".; INK 2; INK 

?: •• uunnnxtictnuuu " 

I^iK INK 7.; "3tt" 

75 PRINT "tttt"; INK - 


, INK .2.; 

PRINT ~~ , 

7INK 2; ,, R“ 


Pj^R^RÉl 


INK r 


" ; INK 2; "R“ INK 
RftRftRftRSftR PPPR 

; “ » '• INK 2 ; " P " I 

INK a.; "R" ; INK 

INK 7; “ ttfcttttttttp 


S , 44, , I ’J r*., (EH. » I .L I < I TT TT TT TT TT TT 

un uuuunnkun") INK si"Pi” j „ IN 

SS pfelNT "nb" ; INK INK 

7 : " t* ” ; INK S ; " R “ ; INK 7; IN 

a;"RRRRRRRR RRRRRRRR"J INK ^ 

INK 2 ; " fl “ ; INK 7 INK 

U> 20 I&rÌnT •'* tt » ^ ; INK S; "fl" ; INK 

7; INK 2; M R".; INK ; INK 
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fi;"R"; INK 7;"8888888 888888 

8^; INK fi: “R"; INK 7; rr tt , * i ; INK Si 
" R ; INK 7; "8 f ‘ ; INK fi .1 " R *' ; INK 7 

" 88 " 

9® PRINT •***«:•• j INK INK 

7; INK fi;"R"; INK 7;"8"; INK 

“T k.i irf* ■*» • • Tkiur <21 ■ ''Qtiaftaa 


fi ; " R 11 : INK > 
RRRRRR" 
INK '7 ; "8 " 


Ì 5 K 


. _..K è: j “RRRRRR 

7ì" 8"; INK fi ; " R 
INK 7;" 


i x i ’M r\ f i «■ .i jlNK fi .1 " R j xr^rs r 
8"; INK fi; " R " ; INK 7; "88" 
la® PRlRt "88"; INK fiJ"R"; INK 
7; INK fi: “fi "j INK i ?;"8' , 1 ; INK 

fi " R 1 ; INK 7; "*'•} INK è ”r " ; IN 
K 7; "88888888888888" ; INK fi ; " R " ; 

INK 7 : "XX" ; INK a:"R"; INK 7;"8 f ' 
; INK fi ; " R " ; INK 7 j ‘ ' « * • ; INK fi ; " R 
A ; INK :“ un " 


110 PRIWT 
INK 7; "8 


88"INK fi; " 

ft " 

*'• .'• : INK 7; "88" 

118 PRINt "88 » 

4$ tl iT 

1S0 PRINT "88"; INK fi.:" 

ÌNK 7 ; "8 8" 

: INK 7.; "88" 

IfiS PRINT "88"; INK fi,;'* 


ink a; 

11 

INK fi; 

i » 

INK fi; 


IK fi : " R " i INK 
INK 7 INK 

INK fi : "R ‘ 1 ; IN 


; INK 7; "8 8 

: INK 7; "88" 

130 PRINT ‘'88"; INK 
7 ; " 8 " ; INK fi : " R " ; Il 

fi.: "R" ; INK 7; "8"; _ .. 

K 7; “888888888888*18" ; INK fi ; " R " ; 

INK 7: "8": INK Sj "R‘‘J INK 7; “8" 
: INK fi ; " R ‘ ; INK 7;"8"; INK fi;“R 

f | ; INK 7 ; "tt 8" 

13S PRINT " 88 "; INK fi ; "R"; INK 
7 ; " 8 " ; INK fi ; " R f 1 ; INK 7;"8 r '; INK 
fi.: "Ri INK 7: "8": INK fi; "RRRRRR 
flftRPiSR ; INK 7; "8"; INK fi:"R 
" INK 7; "8"; INK fi^R"; INK 7;" 
8": INK fi; "fl INK 7;"88" 

14.0 PRINt "88": INK fi;"R": INK 
7; "8"; INK fi ; "R" ; INK 7; "8": INK 
fi ; 17 R " ; INK 7; "8888888 888888 

8"; INK fi;"R"; INK 7:"8"; INK fi; 

": INK 7;"8 a ; INK fi;"R"; INK 7 
; " 88 " 

15® PRINT "88"; INK fi;"R"; INK 
7; "8"; INK a.;"R"; INK 7;"8"; INK 
ai rrrrrrrR"; Ink 7 


; ''8"; ink a;"R"; INK 7; “8"; INK 
fi ' " R 1 ' X N K 7 ■ “ tt 8 " 
i&0 &RINT "88“', INK fi; " R " ; INK 
7 ; 1 ' 8 " ; INK fi;"R"; INK 7;"8888888 
88 888888*488"; INK fi;"R"; INK 

7; "8"; INK fi .; " R " ; INK 7; "88" 


7; "8"; INK fi ; "R" ; INK 7; "88" 

170 PRINT "88"; INK fi;"R"; INK 
7: "8"; INK fi; "RRRRRRRRRR RRRR 

RRRRRR"; INK 7; "8"; INK fi.;"R"; I 
NK 7;"88" 

130 PRINT “88"; INK fi;"R"; INK 
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^K"§?Sg»2*?« 7 , ,u»«nnnn«nn»-:. 

ffàgg ^ RI ^n«gg^«SSg..f ^ iSS fi! ??s§g 

200 PR1NT ''ttttttttttttttttWtttttttt»»»»»»»: 

a 10 LET X »§0 : L ET y *2 : LET xl«l 
: 0 LET Mi*2©: LET 2 1«66: LET f lag 

*220 PRINT PT x , y ; INK 4;"C" ;flT 
x1 ,u1; INK 6 ; ' ‘ D ' ' ; RT 3,2; INK 3; 
FLflftH 4;“R" 

-• -“r Lan* «l : LET lana lai 

INT PT 1®, il; " Pu n ti"; flT 1 
Record " ;h * 

"0": LET 

Pi !É| tss 11 0* * 1 

0 IF f "la g>0 THEN GO 
610 IF SCREEN* ( x + ( a 
’ • 7"J iy+ < a * » ' ‘ 8' 1 > -< a * = " 
méw do TO 4.0© 

“ . THEN LET 

TO 4.00 
THEN LET 
TO 4.0© 

THEN L. ET¬ 
TO 4.00 
THEN LET 


. ri w 1 « i 

i||.W 

'ètte' LET si 
-LET 


fri * « ’ ‘ C 


LET 


1F 


TO 600 
» “ 6 ‘ 1 .1 - (, 
' 3 


4) « " 

• <50 


LE? Fi 

330 IP a $ » '* fe " 

LET rn * « • • O ^ : GO 

340 IF a*-"7" 

LET m|«"r : GO 

360 XP 

LET _ Ili *« 


a # » " a " 


AND y 
c 1 ; n 


3 

< 

> 

• i 

U" 

a 

* 

SS 

< i 

6" 

a 

* 


" 

S" 

a 

* 

sa 


6 " 

a 

« 

ai 

•• 

7> " 

R 


( 

y 

> ì 


GO SUB ©00: GO TO 


4 -10 

a $ 


402 LET a otRTTR (X + («*«"6") - (i 

"7“^ ^ > - ««* = '•©'■ :* :• 

403 PRINT PT x , y; INK c ; R 
40S IP tìW1© S THEN GO SUB 8S0 
407 IP a «64 + C 1 THEN LET SC=U+1 

É l® LET X «X + ( a « * *' © “ 3 - ( a « «s " 7 " 3 : 

T yay+!ì*«"8")-(ai*"B") 

-- PRIMT RT x ,u; INK 4;r 

INT PT 10,17; SC: BEBP .00 

X»Xl AND y ssy 1 THEN GO TO 

f Lag >0 THEN LET f L a g * f I. a 
EP .02,20 

( X 1 + ( b $ » ' ' 6 ’ ' 3 ~ ( b * 



IP SCREEN 


3 


IO S LI B 
' ® 1 IP 


yi+«b*»"©" 

GO TO 600 
P b*«"8" THEN LET 
*”B": GO TO 600 

:-l*r"go T8 E s 0 fe ET 

b * « " 7 ” THEN LET 
GO TO 600 
*■"©'• THEN LET 
GO TO 600 
P (SOS PND X •< 13 :i OR 
IO) THEN PRINT PT x 
' ©00: GO TO 610 

( X 1 sa © PNO b*»"6"3 



(b|e"6") 3 •::>"« 
fo * « " 7 “ 
b $ « ' ' S ’ ’ 
b * « " a " 

b|s"6" 

( y > 13 
y ; " " : 

OR (Mi 
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QND OR cy 1 > 

THEN PRINT RT Xl,y 


■14 HNO b*«"©"} OR (XI«lfi RND b* 
*"•7 "li OR (y lai? RND b # « " © " > THEM 
PRINT RT x 1 , y 1 IMK ci; " GO 

' 7©0 

r ( x 1 > e 


SUI 

iS' .. . . 

l; INK cl;" GO TO 61® 

6®3 L.ET Z «RTTR C X JL + < b « « ' ' S " ) - C b « 
,yl+«b}*"8") - < b* **•'S" > !i 
©0© PRINT RT xl.yl; InR ((2 1-64- 

J-(ÌS8 RND Zl-64>6)): FLRSH 1 RN 
D 2 1-6 4. "R" 

©00 LET ZlsZ 

©10 LET X Ì=X 1+ ( bj*" ©")-( b*w"7" ) 
LET y 1 = y 1+ ( b * * " © " J - ( b S& * “S " ) 

©a® PRINT RT xl.yl; INK © ; n« 

63© IF x ax1 RND y*yl THEN GÒ TO 

©1® GO TO 300 

700 IF Lane * lane 1 THEN RETURN 
■706 PRINT RT Xl.yl.: INK Cl; " '* 

7S0 LET L*a#SON (Une-Linftl) : L 

C ?BÌ a Q8‘f “il** ì+ L *i ( b $»•■©•• ) - ( b*a" 
Pi 1 ‘ ì ') 

"760 LET y l»y 1+ l. # ( ( bi«"7" ) - ( b * w " 
©•*)i 

799 RETURN 

©0® FOR i*25 TO -10 STEP -1: ©E 

EP ,0S . 1 : NEXT i 


©10 pftjNT RT 14, S j PRRER 4. . 

1 1 ‘ Premi un t a A t o 


0 


0 : FLRSH 
giocare • 1 
© 1 © IF sohs 
©30 IF INKEY 


THEN LET hJsiC 
3 < > " " THEN GO TO 


, % 


830 IF INKEY*»"" THEN GO TO 
© 41 © G O TO 3 © 

SS0 LET Cts0-C: LET Cl=»©--Cl: 
C-SC-10: ©SEP .01,30; BEEP 

f L a q SS 10 
» C ss s C + 1 0 

lina INT ( RND *£© :i + 1 : 

(RND *30) +1 : IF CODE 
COL3 <>0 THEN GO TO 
RT L in, COL.: INK 3 


INK 

Per 

©a 

©30 

LET 
. 01 


LET 

SOR 


S©S LET 
©70 LET 
CO L = INT 
EENt (Lin . 

876 PRINT RT L in, COL: INK 3.: FL 
RSH l.i " R " 
a©© RETURN 

90® LET i 91 ss INKEY È: IF y > 13 RND 
y<18 THEN GO TO 950 
908 IF y >22 THEN GO TO 9:3© 

1 RND u >9 THEN LET 
Lane*Lane—1 
“ ' RND y < 0 THEN LET 
1 . a n e = L a ri e + 1 


9 10 

IF 1 *ss" 

y « y — 9 

L ET L 

9 1© 

IF ifts» 1 ' 

y ssy + © 

; LET L 

9 90 

RETURN 

930 

IF i*ss" 

m =y - 

a : LET 

93© 

IF ii=s" 

y ssy + 

p • 1 ET 

94-0 

RETURN 


©•• RND y >23 
l a n e ss l a h e •+• 1 
©" RND y <29 
L anessLarie-l 


THEN LET 
THEN LET 


42 



ÌP ?ììV m SHd°S<; o t3S!3 

ET Lane 
11 11 


I_ 

XF i * 

rr 


lane+1 
PiND x > 1 
1 


§58 

X ss X ± S 
966 

>< S^0 a |Ì!C J f6pN ''* n * ” L * n ® “ 

lei 5F T ^3“ ,, ® ,, and x < 

X *x + 

966 

X ss X — 

ii|§ 

lóll 8 

©e, 7® 

ih 1 * 

9-1 


■a . 

lèr 

DAT 


DRTR 

■, aa4 

2RTfl 

ir 


. *■"©'■ PiND X < 30 
LET Lan*«L*lì« -1 
il»"?" AND x >14 
L L*n«»Lant+i 

H " * " , 1a,©0,194 


THEN 

THE 
THE 


©0 , 
90 , 

a “ (S£ oc 

w w 


b “ , 24,90 13© 

C" , aa4 , 7® ,©6 
d " , 163,S56,1©3,a 
e",7,114,34,255, 
f I. a ci > 0 THEN LET fi* 


L. ET 
LET 

N LET 
N LET 

ia, 4 , 
94,16 

, asse , 

4,90, 
265,3 

9 ss f la 
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SQUASH 


E* questo il tipico gioco della 'pelota' che consiste nel 
ribattere la palla dopo averla intercettata. La palla 
rimbalza ogni volta contro le pareti e ritorna con 
angolazioni sempre diverse obbligandovi a recuperi sempre 
piu' affannosi in virtù' del fatto che,ad ogni punto fatto 
al momento del rinvio, la racchetta si avvicina alla parete 
di fondo. 

Il display mostra in continuazione il punteggio aggiornato. 


ci 

REM Ra 

R BsB 



.**5, 

BORDER 

E: PAPER 0: INK 

0 

1 © 

LEI' s = 

0 : LET s 

t ® 0 : L ET 

d a 1 *3 

LET 

b L «0 




1 S 

GO SUB 

00 0 : G O 

SUB S00 


£20 

LET b L 

sbl +1 



3 0 

XF b l > 

10 THEN 

G O T o S © 0 0 

4-0 

LET a ~ 

«5 



50 

LET ba 

5 



00 

LET Va 

i 



70 

LET w s 

i 



©0 

LET X a 

10: LET 

y sd 


90 

INPUT 

il li 



100 

P R X MI¬ 

R T 3 1.0 

"P3 l 16 " 

b i. J 


RRI NT 

hhv i 

RT y , x ; 

PRPER ©.; 

INK 

122 © 

PRINT 

RT ai,a© 

* * c o l. p i 

* & i: 

13© 

G O S U & 

3 0 0 



14.0 

G O S U B 

a ©0 



1©0 

X F b •+• w 

< > y THEN 

LET y ad : 

GO 

O 110 




100 

BEEP 1 

, 0 



17*0 

PRINT 

RT y , x 

PRPER © ; * 

* 


1©0 

FRI NT 

R T b j a .! 
19 THÈ N 

PRPER © ; " 

i • 

190 

X F d < 

LET dad+1 


194- 

LET s 

a 0 



195 

G O T O 

a 0 * 



30© 

LET a 

$ a XNKEV$ 
a * 1 q. 1 1 R N D 



3 10 

IF a $ 

X > 0 T H E N 

L ET 

a X - 

1 



330 

IF a $ 

a ’ 1 p " R N D 

X < 22 '? T H E N 

L E 

X aX 

4* X 




3.3© 

RETURN 



300 

■ i • 

PRINT 

RT b a 

PRPER © ; 

INK 

3 10 

LET a 

a a + V 



330 

LET b 

a b + W 



33© 

XF a a 

30 OR a = 

1 THEN LET 

V a 


. 0e;ep „ x , x !*% 

' 340 IF b » i f HEM LET W ~ - u) : BEEP 
.1,15 

350 IF b+W*y THE N GO TO 4-00 
3e0 FRINT RT b ,a ; PAPER ©;"R" 
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3 7' © 

RETURN 





4.0© 

LET n 

s» a — x 





4 10 

l*3S 

I f n < 

1 O R 

n 

> 

3 T H E N 

G 0 1 u 3 © 

kJ 

43© 

LET w 

- ~ w 





4 3 0 

© E E P 

„ 1 , 1© 





4 4 0 

LET s 

+ 1 : 


L 

ET S t =& 

t + 1 

460 

X F :$• < 

>2 THEN 

0 0 T O 

3 © 0 

4 6 0 

LET :=. 

«© : L 

ET 

d ss d ~ 1 


4 7© 

• 1 

PR XNT 

PT y 

.1 

X 

P P P E R 

8" 

490 

G O T 0 

300 





S00 

POR K 

= 0 T 0 


3 

1 


© 10 

P P X NT 

PT 0 

, 

k 

; " B “ 


530 

M E XT 

k 





S 3 0 

F O Pi k 

S0 T O 


2 0 


540 

l i 

P P I NT 

PT k 

-• 

0 

; ’ ‘ B"; PT 

k , 3 1; ‘ ' B 

550 

N E XT 

k 





& g. 0 

R ET U R N 





800 

PP XNT 

PT '7 

, 

0 



e 10 

LET C 

ss 2 : GU 


SUB 860 


sa© 

LET c 

sa gì : GO 


SUB 8650 


83© 

G O 8 U B 9 3 0 





8 4 0 

RETURN 





88 0 

POR k 

ss 1 T 0 


1* 

* 3 a 


8 6 0 

P R X NT 

P P P E R 


c ; " “ ; 


87© 

NE XT 

k 





880 

RETURN 





9 3© 

P O K E 

IJ 3 P ' ' 

3 

1 1 

+©,BIN 

0©111100 

9 4 0 

P D K E 

lJ 8 P ' 1 

a 

1 • 

+ 1 F3 X N 

01100110 

950 

P 0 K E 

IJSP " 

a 

1 1 

+ 3 B IN 

11000011 

960 

P O K E 

U 8 R ' • 

a 

1 1 

+ 3,© IN 

11000011 

9 7 0 

P 0 K E 

USR " 

a 

1 1 

+4,BIN 

11000011 

ès© 

P 0 K E 

U 8 R " 

a 

1 • 

+5,BIN 

11000011 

9 90 

P O K E 

USR “ 

a 

1 I 

+8,BIN 

01100110 

10 00 

P 0 K E 

IJSR " 

a 

1 1 

+ 7 , B X N 

00111100 

100 1 

POKE 

1 J SR " 

b 

1 < 

+©,BXN 

11000011 

1002 

P O K E 

USR " 

b 

1 1 

4-1 , B X N 

11000011 

10 0 3 

P O K E 

USR " 

b 

1 1 

+3,BXN 

00100100 

1004 

P O K E 

U S R ' ’ 

fo 

1 1 

+ 3 , B X N 

00011000 

100© 

p 0 K E 

IJ S R ' ' 

b 

1 1 

+4,BXN 

00011000 

100© 

POKE 

IJ S P 1 * 

b 

1 1 

+ S . Eli X N 

00100100 

1007 

POKE 

USR " 

b 

1 1 

•+•© BXN 

11000011 

100 8 

POKE 

IJ S R ‘ ' 

b 

1 1 

+ 7 .. B X N 

11000011 

10 10 

P P P E R 

© 





1 0 a 0 

RETURN 





a000 

IN K. 0 






a© 1© 

P P P E R 

8 





3030 

C L S 






3040 

P R X NT 

PT 10 

.1 

10.; "Tuo 

i p u n t fi ' ‘ 

;2 © © 0 

PR XNT 

PT 12 

.1 

14; s t 


3 0 6© 

INPUT 

"flit 

r 

a 

•gara y 

x n •'? " ; a * 

3 0 70 

IF a $ 

*: ì • 

u 

• * 

T1-1E N R U N 

308© 

r. l 

©0RDER 

7 


3 090 

PR XNT 

PT 1 

2 

,i 

.i c ’j. a 

o " 
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GRAFICA IH MOVIMENTO 


GOLD RDSH 

Il vostro ruolo,in questo game della 'corsa all’oro’ 
scritto da Neil Pellinacci,e' quello di recuperare i sei 
sacchi d’oro stivati nei sotterranei della banca e di 
portarli in salvo. I sotterranei dai quali attingere e il 
deposito da rifornire,sono pero’ separati da un fiume che 
può’ essere attraversato passando su piccole dighe di 
comunicazione. Trasportati dal fiume sopraggiungono 
casualmente dei tronchi che danneggiano gradatamente le 
dighe fino ad interrompere il passaggio da una parte 
all'altra,alla luce di ciò’,dovete trasferire quanti piu’ 
sacchi potete prima di finire nelle rapide. 

I tasti di controllo sono : 

Q = su 

Z = giu’ 

I = sinistra 

P = destra 

II vostro omino e’ bianco quando deve caricare il 

sacco,mentre diventa giallo a carico avvenuto. Per prelevare 
il malloppo dovrete guidarlo fino sopra al sacco,mentre per 
scaricare dovrete entrare nella cassaforte. Entrambe le 
operazioni sono segnalate,oltre che dal cambiamento di 
colore dell'omino,anche da un chiaro beep sonoro. Avete a 
disposizione tre uomini per gara e quelli via via rimasti, 
vi sono segnalati nella parte superiore dello schermo. 

Le travi,una volta provocato il danno,spariscono per cui,se 
non volete finire in acqua ed annegare,cercate di ricordarvi 
dove si trovino le falle onde poterle evitare. E’ chiaro 
che ad ogni errore perdete uno degli omini a vostra 
disposizione. Una volta messi al sicuro tutti e sei i 
sacchi,si salta al livello superiore dove appaiono due vie 
alternative diverse dalle precedenti,ma anche dove i 
tronchi aumentano il loro numero fino a rendere praticamente 
impossibile il termine della gara. A questo punto la diga e’ 
pressoché’ inesistente per cui dovrete ricorrere ad un nuovo 
trucco che e' quello di saltare al volo sopra alla trave che 



transita appena sopra o appena sotto; le prime volte sara’ 
difficile,ma con un po' di allenamento ce la potete fare. 
Passando di tronco in tronco sara’ possibile riguadagnare la 
riva opposta anche se in questo modo diventerà' arduo 
accumulare punti. Il punteggio e' semplice,100 punti al 
raggiungimento dei sacchi.altrettanti al ritorno alla 
cassaforte,per cui se annegate al ritorno,non riceverete 
neanche la paga. Per titolo di cronaca,1'autore ha stabilito 
un record di 3300. 

Il programma e' scritto,per la maggior parte,in BASIC ma fa 
uso di una routine in linguaggio macchina locata all’ 
indirizzo 32530 che muove le travi a destra e a sinistra 
attraverso lo schermo fermandole all’impatto con la diga. I 
dati per il codice li trovate nelle ultime due righe del 
programma. 

I caratteri da ridefinire sono : A per i sacchi d’oro,B per 
la cassaforte e C per il vostro omino. 

Eccovi anche la struttura del programma : 

100 : subroutine per stampare il punteggio 
1000-1030 : preparazione del game 
1040-1045 : iniziaiizzazione di ogni game 
1050-1100 : inizializzazione di ogni livello del game 
1510-1560 : loop principale 
1600-1630 : rileva le collisioni 
1700-1740 : fine di un livello 
1800-1820 : perdita di una routine omino 
2000-2100 : routine di fine gara 
6000-6650 : disegna le dighe attraverso il fiume 
7000-7100 : disegna il fiume,la banca,il sotterraneo 
8000-8100 : testata ed istruzioni 
9000-9120 : POKE dei caratteri grafici 
9200-9310 : POKE in memoria del codice macchina 

Ed ecco il listato : 


S REM 

iSi CLEftR 3S5S9: 
TO 1000 


B l i i"“. t i i l 

) w 

RflNDOM1ZE 


100 
N K 7 
N 

1000 
10 10 
SUB 


rem Punteggio 

PRINT RT 0,11-LEM STR* 3: , I 
PAPER Si BRIGHT 1 S : RETUR 


PAPER Si 

rem Predi a 

BORDER &: 
900© 


e&sì&ì 9 n * 

PAPER 4 


C L- 3 
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1020 PRINT RT 0,0; INK 7; PAPER 
Sj "PUNTI BRIGHI 1,1 "00^S00 ,, .; BR 

" ‘ ■ U ègco6D BR ^ H SRÌÓH?"i ; fi§ 



LET HS*>i 
00 SUB i 

:r a j ink 

0,16.; "3 " 
.04.® LET MM 
.LET 


1000: PRINT RT 
7; BRIGHI li "0 


RN« « 992 



3 


LET MEN 
LET L»2: 
OO SUB 


T ? SK- 

“sub 7000: 

OOP 

*L : LET C1*«C 
aINKEY*: IF R*a' 


é0Ó‘' 

LET Ss 
ET C*23 
6000 


*SÌ8 hST 


1S30 
1640 
4 THEN 

ì§£§ P 

K 0.; " 


THE 

' 2 " ) — ( R É » " cl " ;i 

'p " ) - (Ri*" i " :i 

( L , C :i : IF RT < > 2 


Ì®S6 IP RND> R N THEN PRINT RT 7 + 
NT (RNb*® :• , 30; INK 0.; PAPER 0;" 
": LET RNaRN-•000® 


»L+(RÉ* 
sC+(fls* 

T ssRTTR 
v. TO 1600 

ifjT ' RT LiJ8lj PAPER 3; IN 
RT L,C; INK Gì PAPER 3.;" 


IBS 

>0 


GQ SUB 


LET 2*gSR 32630: GO TO 1610 
““ 1“ 10 THEN IF 0*7 THEN L 

» . ^2§i: LET S aS + 100 : 


'58 


i 

16. 

162 


IF 

1 , 
,UB 


0 

2 IC 

38 LET 
0 


rt *>: 

iÈì 1 

RT « 3 : 
0 : I 
100 


1,4.0: LiIt 


THEN 
O « 7 : 

IF S K » a 


bSK + 1 
XF 


GO TO 


r 6 a § THE N 
LET 3«S + 10( 
THEN GO T ( 


RT«4B THEN GO TO 1800 
RT *0 THEN GO TO 164-S 
L»L1: LET C*C1: OO TO 


B 


1 


1700 

FOR 

A«-10 

TO 

20 

STEP 

5 : 

BEE 

ìl ih 

, R : B 

EEP . 

1 , R - 


NEXT 

R 


FOR 

fl»15 

ró - 

10 

STEP 

_ e; . 

BE 


1 , R : 

BEEP 

. 1 , R 

-5 : 

NEXT 

R : 

Se 

EP 

Lrl5 








1720 FOR fisi 
; PRPER fi/3; 


TO 21: PRINT RT R 0 


1730 BEEP ,1,20. 

R*1 TO ai: PRINT 

0 : " 

": NEXT R 
1?40 GO TÒ 1060 
0 FOR R « 10 T. 

RT L,C; PRPER S.l 
,C; PRPER Si INK 
lift: NEXT R 

06 PRINT RT LI,01: 
0 


NEXT R 

EEP .1.25: FOR 
RT fl.0; PAPER 


1741 

ito* 


T 

i! 

K _ . 

1810 LET MENsMEN-1 


TO -26 STEP -4: PR 
INK 0; "C" .; R 
6; " •• : BEEP 


PRPER 3; IN 
PRINT RT 0,1 
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XWK 7 j BRIBI-1 
«0. THEN (50 tO 


BRI@HT 1;MEN 
SOI 


ì 0 

0*7 


©; PAPER g ; 

lS 16 XP M E N i» Ifc» I nc.1^ IV.» aw< 

18 17 XF SKs6 THEN OO TO 1701 

1920 LET L *3 : LET 0*33: LET 

OO TO 1500 
3000 REM PINE GARA 

3010 POR R*0 Ttì 7: POR 6*1 TO 31 

PRIMT AT § , 0 ; PAPER R" 

": NEXT 

B: NEXT R 

2030 POR R * 1 TO 12: BEEP .1,3 

EEP ’ ~ ... . . 

2031 
T RT 


:ep 


r u h( m * x i u id: c? e. e. k . x , • j : cs 
« 1,8 : BEEP .1,13: NEXT fl 
0 XF S>HS THEN LET HS=S: PRXN 
T 0,32“LEN SfRÉ HS; PRpER 2; 

7.; BRIGHI 1 j Ho: BftEP .1,3: B 


BRI 
2,10 
POR 


35 POR R *20 TQ 2 STEP -1: PRXN 
RT R , 0 BRIGHI 1; PAPER R N D * 7 j 
NK,_g; " ii FXNg s GARA FINE GARA FIN 
X I H 


3036 
T 

I 

E gRrR' " : ’ N_. . 
304-0 POR R«0 TO 7 
P ,3,7-R: NEXT R: 
TER -1: BORDER R: 
NEXT R 

2100 GQ TO 1040 
6000 SfOP 
6000 ftEM Ponti 

XF MM* 0 THEN 
LET MM=0 


BORDER R: BEE 
POR R *7 TO 0 S 
BEEP .3,7-R-l: 


- 110 
6S20 
6060 


©èe-0 
" ; rt 

©0 70 


PAPER 

PP X NT 
g , 15; 
PR X NT 
" ; RT 


3 : INK 
RI 8,9.; 


RT 

10 


GO 

0 : 
18 .; 


9,9 
9; ” 


©0B0 PRXNT RT 


©0GÓ 


PRXNT RT 

• • « • • • £i t 1 ^ , PI ; 

é, 100 PRXNT“ ÓT 14,6 
T 14,18; " 

RT 16, l8 .; " 

6600 RETURN 
6600 PAPER 3: 

• : RT 7 


11,9; " “ ; 

;RT 12,6; 
RT 12,22; 
13,©;" 


TO ©600 
PRXNT RT 7, 

i l i 

’ ; RT 3,13; " 
";AT 9,1© 

";RT 10 , 17 ; 
RT U,lg + 

I * H 

; RT 13,14 


; R+ 1S 


t 


P 


INK 
20 ; 


PRXNT RT 9,iw, " ; m i •» 

rt 9,1©;" " i RT 9,20; " 

10; " " ; RT 10,13; " " ; RT 

: CiT 1 iTi . " " 


0 

10 ; 


12 ; 

©61$ 

T 10 

F*i ‘ 1 * 

6 te 2 0 . 

11 , 20 ; 

ca • '• 

©630 PRXNT RT 13,9;" 

fi, ; " " ; RT 13,20; " "; RT 

ii • ca“T oi?i : n " 

604.0 PRINT RT iS , 4 ; " 

- 5 » • ti • • 

è è 5 0 LET M M *1 : P ET U R N 
7000 REM Schermo 


PRXNT RT 7, 


RT 

RT 


3 

9 


,RT 1®,20; 

PRINT RT 11,10;" 

RT 13,10; 


10 ; 

12 ; " 

" ; R 

10,1 


■ 0“T ■*! ‘t 

,1 n 1 «u. 15. 

; RT 13 
14,9;" 

; RT 1© , 1 


RT 
> , 1 

1 
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70X0 FOR Rss 1 
; PAPER 4; " 


to ai 


NEXT 

7®4.g r POR. Rs*© ,TO_16 


R 


P 

7®a 


iPER 3; IMK 0; 


3 : 


. 8+ £?!§£• 

030 PRINT RT 2,9; " 

RT 3,9.:" " RT 3,1» ; 

.“ 4 , 18 ; " 


PRINT 

RT 

R , 

0 

PR INT 

RT 

R , 

0 

NEXT 

R 



FOR 

R*=l 

TO 


l i , 

NE 

XT 

R 


7040 P 
70é:0 T P 


J i. . RT 

•R INT RT 


\ ìnt 5 * 

PRINT 


RT 


RT 

RT 


B , 13; " 

RT S,21; " 
16,10.;" '' .; RT 


P1T 4,9 

. 8,13.; " 
16,13 


"'■ìkì 


7060 

RT 18,13,1 
T 30,Ì4;" 

7070 FOR RalS TO 91 
8 ; " " : NEXT R 

7030 FOR R ss 19 TO ai 

. 6;"RR": NEXT 

:NK 7 ; " B" 


19,23 
PRINT 


RT 


R , 




PRINT RT R 
R: PRINT RT 



SI; PRINT 


■TURN 
’ M Titolo 
iRDER 3 
IR R ss 1 TO 

6 ; " 

": NEXT 

6312 DIM XtB) : FOR R ss 1 
ì(R)s»R-l: NEXT R 

6013 FOR fisi TO 3: L.ET II 

sì! ì: 


R 


TO 



R 


RT R , 0 

© ; LET 

I NT ( R 
I(R)si 


16 FOR 
R 1.(6 i 


Rs=: 


TO 


(RR 

RRRRR" 

8022 P 

" : BEEP ”'.'4. , 
6024 IF INK 
RETURN 
8033 NEXT 
P' 


3 : 

RT 




PRINT 
RR " 

NT RT 6.7 ; "RRRRRRRRRRRRR 


R X NT 0T _ 6,7 ^ 


(Rii + 

:Y $ < > 


'R" ; RT 3,24;"R 
THEN BORDER S 


©030 
K © ; 
6040 
. 12.; 

Éé§0 


SRI N” 
BRÌGHT 


:òì 


R: GO TO 301© 

NT RT 10,10; PRPER 0; IN 
.. . “ ' i;" CORSA RLL " ORO " 

INK 0; PAPER 6: PRINT RT 19 
TASTI ": PLOT 0,73: DRRU 9 
PLOf 256,75 : DRRU -93,0 
INK 1: PRINT RT 14.9; " q. 

.SU"; RT 16,9; "2. 

U ' " 

6060 PRINT RT 16,9; " i.S 

IN " 1 RT 17,9; "P . ..DEST " 

6070 PRPER 6: INK 0: PLOT 0,34: 

DRRU 255,0 

6030 PRINT RT 19,6; PRPER 4; INK 

7; BRIGHI 1;" UN TASTO PER GIOC 
ARE 

6090 PRINT RT 21,0; PRPER 2; INK 
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scritto oa Nei i Pe Uinacci 


©100 GO TO 
9000 REI-1 y 
9006 RESTO 
9010 fOR R * 
READ 6 : P 
9100 ORTR 0 

9l?0 DRTR a 
9 , 256 , 102 
9190 6RTR 1 

ii|§ 22 

3S530+A,B: 
9220 RETURN 
9300 DRTR 3 
§ , 126,264. , S 
5 4. . 24 

9310 DRTR 3 
6,13,38,232 
17,32,0,6,1 


6016 

e 9100 

USR "R" 
OKE R,B 
,126,60 

66,129, 

6,6©,16 

§ D fo 4-7 
NEXT R 

2,4,64 , 

irÌ4.^é 


TO USR "R"+23 
NEXT R 

,24,60,126,265 
133,IBS,137,12 
,124,16,40,60, 

RERD B: POKE 


Sjl*ìì*iì* iSJ J 



3 

Si 
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TÀfiAITULÀ 


In questo complesso programma stilato da Malcon Young,vi 
trovate al buio in mezzo ad un campo e dovete combattere per 
cercare di salvare la vostra vita insidiata dalle fameliche 
tarantole. I ragni sopraggiungono dai bordi del campo in 
cerca di cibo e,voi siete fra questo,vi puntano addosso. Dal 
canto vostro,siete sistemati entro un carro armato col quale 
potete muovervi e siete equipaggiati di un laser e di una 
torcia elettrica la cui potenza va via via scemando. 

Il resto delle istruzioni le trovate nel listato. Buon 
divertimento e....auguri. 


1 REM Caratteri grafici: REM 
R « 11 R " ,■ B* n B ‘ . 5 = "D", E e"E 

*■ , q»"O n , h= x* rt i", J 


, . K ss f ' K 

e p $ ( is) 

H PRIMT "fltt 
GO SUB 861©: R 

r a 


IM 


rsturi 

ìg gsLgyg le®® 

S0 BORDER 6 : Pfl 

us _ _ 


DIM W # (B j 1 © ) 

rid i un atti rno 
M definizione 

PER © : XNK 7 


D 
• • « 

cà 

c 


3© 

3“‘ 


PRXNT RT «iXj tl 
... PRINT XNK ©; PAPER B;RT gl, 
RUNTì«“iscore;RT filala;"RRGNt 
;nb; “ U XTR» " j Live*. 

4.0 LET a «»X : LÉT b«y 
“T i *«INKEY* 

(i*< rr l M OR i *>'*©"> #a© 



.05,0 


RT 


GO SUB URL i*#1 
■*; BRIGHT U 


b , a ; “ '* 

(RND < LftV) «100 + 100 
<d « «y +1,X +1) »"B“) #39© 


cn *cn * < cnirn +1 


. _ t n > © ) # a © + 
NgT s (Cn4) 

■f tcn l) 

d*(sy 4X) «* 


4.0 

TMEM GO TO ( 
LET sy «steri 


1B© LET s y * a y + < s y <y+13 - (sy > y ■+• 13 
UET » ( c n , 2 J s$y 


150 UET SX»SX+(SX 
UET S (c n , li «s x 
170 LET d* (sy , #X) » 

180 SO TO 4-0 

§1© § F M r NU ® v * a r ‘ 9 f t " u ■- a 


x +1J - ( s x > x +1 ) 

B “ 


«1© THEN UET I. « V =a . 0® : R 
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ETURN 


LET h«n+l: L.ET 
LET S- X * S in,l! : 

L.ET d % < £ U , S X 3 


nb*nb+l 
LET sy=s (n , 3 


ad.© LET d % (SU , SX 3 = "B" 

250 LET C»INT (RND#©3 +;2 
260 PRINT BRXGHT lj INK 
•1 ììx-1;"B"iCHR* ©J : SEEP 

■ P T MT : f • " 


prInt , 

a?0 PRINT 


RT *y 

4 > j 1 ! 


. ...... INK 0; PAPER Sj RT SI, 

3 j "PU NT I ss " SCORE; RT 31,13; " PRONI 
“ in b; " uXTfls";LIUE5 

§ 80 RETURN 

00 PRINT PRPER 7; BRXGHT 1; EL 
RSH li INK £ ; RT ig,Si "afrghl ! TI 
HANNO PRESO.' 1 : LET li V44«Li V6S- 


.1 


61! 
PjN 
• Si 


S 3 ( 
& 4 -L 
©50 


FOR tal TO 
S (tj2) »y + ì 
NEXT t: SI 

big, 

FOf 


n : IF ft ( t , 1 ) «X + 1 
THEN GO TO 630 


OP 


5 .. fi ( t 


a 


.0 


, > j. * , li 3 a" " 

C.ET nb«rib-l 
: 3 tì K * a - : 

BEEP..^|8 ^ 1 : 


a®,0: NBX* 


INK ? : FLASH 0 


:T d « ( fi ( t , 

■T *• Ct. , _Ì 5 » 

^_ JR tal TO 

RT y,x ; "R" ;. 

PRINT "©": 

660 PRPER 0 

'“‘egg IF naie RND n b»0 THEN GO 

e ©70PRINT INK 0; PRPER 6 ; RT 2L 
S; "PUNTI*" ; SCORE; RT ai, 12; "PRONI 
nhj" UITRa";LIUE5 
'8 LET rk*rk + ( r K <73 
- IF liVtS THEN RE. . 

IF score<q(8) THEN GO TO ©4 


CL 
U 


0 



RETURN 


©00 INPUT PRPER e.; INK AJQT 0,0 
; ("Rientri nei primi ; FLASH 1; 
'CINQUE" FLASH 0' PRPER 5 
nome. "3 ; LINE p « 
r aB TO 1 STgP -1 


i I. tuo 
©10 FOR 


Bltt 

.17? :' IF a c o r è > q T r 5” ' THEN ~NExf E r 
6«:0 FOR g«© "fo r+a StIp ~I : BEE 

P i 1 j 9 : LET q C<3 3 aq (g ~13 : LET W* ( 

g 3 sW| (g-1) : NEXT g . . „ 

“ “ “ L..ÉT q. C g 3 «scori : LET W A ( g 3 ap 

BORDER 3: PRPER 8: INK 3: C 

RT 3,a.i" campioni di 

à‘ 


3 » q < g - 13 : 
q 

©30 L.. " 

©40 

L 650,PRINT 

818* FOÒ r a 1 TO S: BEEP .6 , r 
©^0 PRINT RT 7 + r , 4 ; PLRSH C w « ( r 
3 =p( RND a c o r e «q ( r 3 5 w é ( r 3 ; q ( r 3 : 

©SO 1 PRINT RT 10,3; FLASH 1; INK 
0 ; "UUOX GIOCARE ANCORA : PRUS 

E ©!® IF XNKEY#»"n" 

TO 10 


0 IF INKEY # a"n" THEN STOP 
8 Q Q T Q 10 

M Avanza mento di grado 
RDER a: PAPER ©: INK 1 : 
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LS 

720 PRXNT RT 3 .1 "7 "CONOR RT ULfiZIO 
Ni", , 7 -p,e i; "Hai ucciso score/l 

0; " tarantole" 

730 Pftl NT ' TRB 6.; "Sei stato prò 

mor * " 


?ii y " “tp© 1 3.; " 


DO" 
760 


RESTORI 


6661 


a L 
FOR 


r k 
m a 1 


READ n: BEEP .S,n: NEXT m 
.77® PRXNT -TRB 2.; "Puoi ora 

TRB.. 6 ; " e s a Itera 

cont r o i i. i 


. e 
'60 


a 

PRINT 


o nuovo grado 
79® PRXNT -"Ora 


FOR C«6 TO rk STEP - 1 


N 

P 


T C 
NT BRXOHT 


l; PRPER 


" ORA 
TO 25 
c a m b 
i l t u 
i I. 

READ 
rk; X 


800 
è!® . 

N K 9 c * ; 

690 PRXNT " tank" 

63® DIN dJt (22 j 32) : LET S =7 : LET 
rsi/3: LET n =0 : LET ri b*0 

64.0 OO SUB 9250 : PRXNT RT 90,10 
;"Premi un tasto": PAUSE 600 
860 BORDER 6: PRPER ©: XNK rk: 
CLS 

LET P «0 : RETURN 
0® LET UD»(T*»"E") -iTt»"D") 
1010 LET HO* (TÌ*"C") ~ (T*a"P") 
1090 LET UaV+1: LET H*X+1: LET W 
th =1 

1026 PRPER 6: XNK 8: 

1030 GO TO RBS vd*110+1040 


O R Cd < 1 
P h d 


_14 0 LI 

1060 LI 
■f : LET 
1070 FI 
1060 LI 
100® LET 
V + W t. h -21) 
llg® gRXNT RT , u ir ~-l ; t-l; d <$ tu l , t) ; 
CHRl ®j : XF u I. >1 THEN PRXNT ÙUER 
li "J" AND h d *1; "I" ANO hd*-l 


T d t * (l#hd) 

T deh+dt: LET d 
d = d- Cd >32) * (d 2 

R t«h+hd TO d ‘ 

T gl*V -W t h OR V -Wth <1 

l * C V + UJ th ) - C V +W t h > 2 1 ) * ( 


1 

L 


110 FOR W «U l+l 
RSH C d * C W , t ) < 


PRXNT F 

1,t-ljd 


TO l l-l 

• " ) ; RT M.i 

É (W , t ) i : NfiXT W 

1 12® PRXNT RT l I. - 1 , t - 1d # C l l , t ) . 
CHR* 8;: XF LI<21 THEN PRXNT OUÈ 
R 1 ; " H " ANO h d * 1" G " ANO 


1131 
lift 


LET Wth*Wth+l: 
OO TO 1230 


N E XT 


hd * 
t 


OR Cd < 1 


LET d t * C S #v d) 

LET d *V +d t : LET d *d 
) : LET d*d- C d >21) * C d - 21) 

117® FOR tsv+vd TO d STEP wd 
1180 LET L l e (h-wt h) OP Ch-wt h <1) 
1190 L ET u L * C h + W t h ) - C C h + w th -32 ) * 
Ch + Wth >32) ) 

1200 PR XNT RT t - 1 , l L - 1d « C t .11 T 
DUI): 
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1202 IF LL>1 THEN PRINT OUER lift 
T t - J , l. I. -1.; "U" AND V d ■ 1 .i ’ 1 H " AND 

'Ì.205 IF u L OS THEN PRINT OUER lj 
AT t - 1 , U l. - 1 " Z " AND v3«lj "O" AND 

i.j «I — _ *1 


Iti ■» KlH ,1 W 'k klk .1 Jk I—1 I a fc»' V 

1210*LET wthwWth+1 
12 2 0 NE XT t 

1230 BEfeP .2,6: PAPER © 
CLS : PRINT RT u , X t. » : 


ZNK 7 : 


kk • w v i—. iw. i r~*. i i w . rs i w « ■. i t 

200© LET U[)a(Tt*"E") - (T*ja"D") : L 
ET MD* (T$= r 'C" ) - (TÉ«"F" ) 

2010 LET U= Y + l: LET H»X + 1 

2020 POR T * 1 TO R 

§026 LET U«U+U£>: LET H=H+HD 

2000 LET UaU+ <U < 1J - (U>21) : LET H 

ssH + ( H < 1 ) - (H >32) 

2036 BEEP .06,10 

203.0 PRINT AT U-l , H-l; "K" 

2060 OO TO (D* (U,H) < > " t *20+20© 

.* 4 . 


2060 OO TO (D* (U,H) < > " 1*20+20© 

0 

2060 PRINT INK 0.; AT U-l, H-l:" 

N È XT T 


2070 i_& i i =i — i. i ? a .i s j .-, kc; i ijhh 

2060 ?DR T*0 TO 7: BEEP . 1 , t, : PR 
INT INK t;AT "A";CHR* 8; 

BEEP . 1 , t +7 : PRINT INK 7~t. : "B^ 1 

jCHR* © : : BEEP . 1, t-7 : N E XT T 
2090 LET SCCiRE*SCOAE + 10 : LET S»S 

+RND/4: LET falNT (J/1.5)+1 


far-tng) /10: RETURN 


+RND/4: LET r#INT (S/1,5)+1 
2 100 FOR t«l TO n : IF V a»s Ct . 2.1 A 
NO h ag (t , 1) THEN OO TO 2120 
2110 NEXT T: STOP 

2 120 LET *(t ,i:i*0: LET nb*nb-l 
2130 LET dt(V,h) a" " 

214.0 PRINT INK 0.; PAPER 6; AT 21, 
3; "PUNTI»".: SCORE; AT 21,12.; "RAGNI 
» '* ri bj " U IT A = " LXUÉS 

2150 LET ievalev+0.01#(lev<.2) 
|160 0 ^ET psp+1: IF palS THEN OO 

2170 IF n »15 ANO nb=0 THEN PRINT 
BRIC5HT 1.: AaPER 4..; INK 0 ; AT 16 , 
O;"Attendi 2 secondi per l'onda 
successiva . 1 : GO SUB 9lcÈB0 
2190 RETURN 
50È0 LET T|a"F" 

5010 LET X=X- (X >0:i 

8858 

60 10 LET Y*Y+ (Y<20) 

S02& RETURN 
7000 LET T*»"D" 

■7010 L ET Y =Y - ( Y > 0 ) 

7020 RETURN 
©000 LET T$a"C" 

6010 LET X»X+CX<3i:» 

©020 RETURN 


500 

ÌSi 
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©500 REM DEFINIZIONE CRRRTTERI 


©610 DRTR 
6,36 

©©§0 DRTR 
. 163, ISO 
©630 DRTR 


_S40 DRTR 
264,130 
©660 DRTR 

8é48 J é§TR 
6,0 

8S?0 DRTR 
JiSgijgj^DRTR 

0«feÌ8 DRTR 

é©00 DRTR 
4 a isa, 

D 




la» I nix I «b Aa W I 1 Imi W I 1 I '■ I I I I h«> I “I Jkm 

6©,90,126,©0,126,163,© 

129,1SS , la© , ©0 126,163 

0 , 1S©,60,66,66, ©0 , ia©, 

1© , 1© , 14.© , 254,206,264 , 

130,264,264,230,264,14 

0,12©,60,236,236,60,12 

1,3,7,15,31,63,127,266 
12©,192,224,240,24©,25 

265,127,63,31,15,7,3,1 

255,254,252,246,240,22 


0,0,0,24,24 

nuwiURÈ 

P'OR d *97 TO 107 
FOR 6*0 TO 7 
n : 


TURNI 


KE 

XT 


USR 

d 


0 , 0,0 


C H R $ d + e , n 


RTR 0 , - 1 , -2 , - 1 , 1 , 1 ,, 1,0,0,0 
■ , 0 , -2,0,1 , 1 , 1,0 , - 1 , 1,0 , - 

1 UERDE 
“NERO 


0 DRTR "GIALLO","CYRN 
MAGENTA",“ROSSO","BLU 

rSRdJmIzI T ‘ SnD *65535 
I «Bf-T 3 b R & R © 


H $ * 

R B R“ 

1 : PRPER 


R B R 
BORDER 1 : 


B 

C 


90^0 

• fPlPl 

ligfg 

LASM 
9000 __ 

S a buia 

a m p o d i 


PAINT H« (3 
FOR X»1 TO 
3 1 I “AB" ; NEXT 
p, pi j NT ** * r> 


TO 31) 


11 : PRÌnT 


1 

F 


0 , 0 : 

OUER 

.. X 

KKirNi RT 81,0, H*( TO 38) 
PAINT RT 10,10: BRIGHf 1; 

1;"TRRRNTOLA" 

L ET rn * » " T ì trovi in u n a fos 
grande circa q. u a n t. o u n c 
ca i. c i o per coni ba ttere co 
n t r o te terribili tarantole le q 
ualì scendo n o in cerca di c i b o . 
Devi sterminare quelle piu' v o r a 
d per salvare la vita." 

9090 LET rii $ * rn * + “ Possiedi un far 
o e un laser e Piloti un carro a 
r m a t o che niente può" contro il 
m o r so de i le tarantole." 

9100 LET rn ài * rn $ + " Ritenzione che 
le tue armi comb'att o n o si L e tir 
antolt,ma si consumano e il loro 
raggio d'azione diminuisce." 

9 110 L. ET mi*" 

" + rn i + " 
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913® PRINT 
1;"PREMI -e 
; RT 30,1; "O 

i i 

9125 PAUSE 
9130 POP L a 
RT 15,2 I M « 
914.0 IF 1NK 
THÈN GO TO 
9160 PAUSE 
9160 BORDER 

91?0 PRINT 
ER MUOUERE 
" " •' "TASTO ' 
STO "3" PER 
9180 DIM d $ 
9190 LET Sa 
9300 LET X et 
NT (RNO*ai) 
se 


INK 0.; PAPER S;at 
' PER LE ISTRUÌ:: 
UN TASTO PER PAR 


IRE 


600 

1 TO LEM M*“27: PRINT 
ri *t n x © **■? ì 

ÈV fa' 1 ®" OR IN K E Y ifc « " E ‘ ' 
9160 

10: HEXT L 

4.: PAPER E: BRIGHI 0 




ÌO 

LUCI 


R MRT Q. 

1 1 •* <• t* pj| 


99 10 
ET Q 
9330 
9330 
934.0 


§34.6 


LET 
b »0 
LET 
LET 
LET 
GO 


r fc 
c n 

t p 

. _ =>ùé 

E NT E R IC se 
9360 FOR Z a 
9360 LET sx 
s y alNT (RND 
9970 IF o<0 
LET S ( X .i 3 
9380 IF o>0 
LET S (2 ,1 
9990 NEXT * 
9300 RETURN 


RT 6,3 
IL OR 

1' PER FRR 
SPARARE." 

(21,38): DIM S(16,8) 
7: LET ra*/l,S+l 
INT (RND*32): LET y*I 

o r e a 0 : L ET L i v e a. * 3 : L 

*7: LET t !$ a 1 ' C " 
a n 

V * , 06 : LET P a0 
9^60: INPUT " Premi 

.j " J r * : Return 

»INT (RND #38) +1 : LET 
*3 1) +1 : LET O «RND 
.6 THEN LET s iz , 1) «sx 
) *30 * (RND> .6) +1 
.6 THEN LET »(Z,3)«sy 
)a31*(RND>.6)+1 
LET n «ri b 
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JUIGLE JOB 


Questo gioco si svolge in due stadi successivi,il primo dei 
quali consiste nel condurre una canoa lungo un fiume 
impetuoso cercando di evitare gli spuntoni di roccia che 
sporgono dalle acque. Se ci finite contro,l’imbarcazione si 
rompe e voi finite in acqua dove venite divorati dai feroci 
pesci piranha. Hella seconda parte siete autisti e dovrete 
guidare la vostra Jeep che,ahimè’,e’ rimasta senza freni ed 
ha l'acceleratore bloccato. Per curvare usate : 

Q = su’ 

A = giu’ 

0 = destra 
P = sinistra 


•t * £ * * £ £ * £ £ £ £ £ £ £ ££ £ * £*1* '!Ì!' £ ££ * £ 

£ f § t ££££ £ 

.** 

****** * * * £ * * * £ **** 

£ £ £ £ £ £ £ $ £ £ $ £ £ * £ £ £ £ £ £ 

£ £ £ £ f f £ i f | "Ir £ £ $ È £ £ £ £ £ 

£ £ £ £ £ £ £ £ £ £ £ £ £ £ £ £ £ £ 


£ £ £ 
£ iiir £ 
££ 


£££ £ 

£ £ £ £ 
£ £ £ £ 

£ £ £ £ £ £ £ £ £ £ £ £ £ £ £ £ £ £ 

Di' £ £ £ £ £ f £ £ $ £ £ £ £ £ £ £ 

" " " ' " £ £ £ £ £ £ £ £ £ 


£ £ £ £ £ £ £ £ £ £ £ £ £ £ £ £ 

f £ £ £ £ £ f £ £ £ £ £ £ £ £ £ 

£ f £ £ £ £ £ £ £ £ £ £ £ £ £ £ 

£ £ £ £ £ £ £ £ 


£ 

£ 

'.«U 

£ 

£ 

£ 

£ 

£ 


££££££ £ 
■ £ £ £ £ £ £ 

Ì £ £ £ f £ f £ £ £ f 

’ -jjl* 'J 1 ' ijjj' 'x 

JT #■ if - Ìk #■ 'H h 't 'I 1 ' iil!' 'le 

£ £ £ £ £ £ £ £ £ £ £ £ £ £ I £ £ £ £ £ £ 


£ £ 
£ £ 

£ £ 

£ £ 

* £ 


£ 


£ £ 
£ £ £ 

£ £ £ 


£ x £ 
'Ir 'li 1 ’ H | h 


£ £ £ £ £ £ 


1 REM ##*JUNCK E JOB##* 

©M irtin Jone» & flndrs w 3 w e e t L a ri d 


REM 


a REM E, _ 

3 OQ SUB 9001: 

4. POKft §363©., 0 
® POR t=1 TO 3: ©OR D ER 0: 
GHT 1: PAPER S: INK 7: CLS 
PHT 0 

' 1® POR f *14 TO SI: PRINT RT 

0 ; PRPER 1 . : NEXT f 


SXSODXO 


1 

LET 


l i *3 


BR I 
BRI 
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1® PRINT ttljRT 0,0; 

S0 PRINT RT 9j0; BR 
3 ; __ _ _h 


PRPER 

:GHT 1; INK 


TO 13 : 
RPER 3, 


PRINT BRIGM 
NEXT f 
RIGHT l; IN 


■# FOR f«10 TO 13: PRINT BRIGH 
T l;RT f,0; PRPER 3 , , : NEXT f 

40 PRINT RT 1.S9; BRIGHT 1; IN 
K 6:"DE ,, .:RT S.Stìj "Pe T ' 

46 POR foie TO 16: LET p«S+(RN 
0*16) : PRINT RT f , p PRPER 1: ±N 
K 6:"NI";fiT f ,P+10 : "HI" : NEXT f: 

PRINT RT S® , RND *30 INK 6; PRPE 

R li "MI" 

©0 LET x«17 : LET u«0 
SB IF y<*S9 THEN IP RTTR £ X , y > 
«14 OR RTTR ( X i y+1) *14- OR RTTR £ 
X iU+fl) «H THEN So SUB 130 

60 PRINT RT x , y INK ?; PRPER 
1. RB " 

70 LET u«y+l 

30 IF IftKEY|a"q" THEN IF (X >15 
RND y<S9) THEN IF RTTR (X»1,U) < 
>14. RND RTTR £X-l,y + lJ 0 14 RND R 
TIR £x - l,y + £ ) <>14- tHEN PRINT RT 
X , y .1 PRPER li INK 7 ; ** '* : LET X 


©3 IF INKEY* = "«" THEN IF (X <20 
RN6 y<S9) THEN IF RTTR (X+1,y) < 
>14 THEN IF RTTR (x+l,y+l) oli T 
HEN IF RTTR <x+l,y+2) O14 THEN P 
RINT RT x , y : PRPER 1.: INK 7.: " 

• • . gr v c v + 1 

'86 IF INKEY*« M o" RND M<28 THEN 

L "ie Sul 1 “éid. , 0 : OUT £64,16 
90 FOR z«l TO 10: NEXT Z: IF y 
«30 THEN NEXT t: GO TO 106 
QS GO TO ©S 

100 REM FINE EPISODIO 1 
IBS PRINT RT x,y: PAPER 1; INK 
7 ; "AB" : FOR f «60 TO 60: FOR 9 *0 
TO 32 : OUT £64- , 9 + 16 : OUT 254,0 : 


(X <20 


INK 


NEXT 
110 
1 £0 


g: NEXT 
SO TO ©< 
REM OOOf 


130 PRINT RT X.y; PRPER 1.: INK 
7;"JK": FOR f*0 tO 60: OUT £64.1 
6: OUT £64,0: NEXT f: PRINT RT X 

+1,4+1; PRPER 1: INK 4;"CC";AT X 
- 1 , y +1INK 7j "LM" : LET Li «li — 1 : 


IF ~ li»0 THEN' GO TO ©000 

140 FOR r « 1 TO 500: NEXT r : GO 

500 REM EPISODIO £ 

505 CL5 : PAPER 1: INK 4: CLS : 
FOR r «0 TO ai: PRINT "NNNNNNNNN 
N N N N N N N N N N N N N N N N N N N N N N N “ : NEXT f 
510 FOR f«~S0 TO 60: BEEP .01,f 
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PRINT PAPER 4 


PRINT PT 
" ; PT f , 
NEXT f 
12: PRINT PT 

1 : “ “ ; PT f 


Sé; 


19 


f , 2 
2 8 

, 23 
NEX 

f , 3 


f , 

f , 


,6 POR f*l TO 3 

!NK 1; PT f , 0; " 

•* : NEXT f 

620 POR f«5 TO 6 

; PAPER 4.; x N K 1; 

" ; PT f , 28; " 

526 POR f *7 TO 

3 ; PAPER 4.; 1NK 

“ : NEXT f 

S38 POR fs3 TO 4: PRINT PT f 
• |BgpER 4 ; INK 1" “ : 

T f 

838 POR f*6 TO 10: PRINT PT 

; PAPER 4: |NK 1;" 

": NEXT 7 

640 POR f«10 TO 18: PRINT PT 

1; PAPER 4.: INK 1:** " : NEXT 

648 POR falfe TO 17: PRINT PT 

lì; PAPER 4.; INK 1; " 

RT f 2B ■ 11 * * • jvjgyj p 

f-18 'TO 20: PRINT PT 
PAPER 4 j INK 1.; " 

“ " ": NEXT f 

POR f*13 TO 16: PRINT PT f , 

PPPER 4: INK li" " PT f , 27 

; *■ : NEXT f 

680 PRINT PPPER 4.; INK 1 ; PT 2,2 
0; " " ; PT 2,24;“ “ ;PT 3,2(8; " 

";PT 4, là.;" AT 7,18;“ 

“;PT 8,20 ; “ “; PT 9,2;“ ";PT 

, “ ; PT 9,20;“ PT 11,4 

n | x .u j iss cs ,i .i n i jl ce j ex. -u. ,« .1 

!3 ; “ “ ; PT 13,30 : “ “ 

! PRINT PPPER 4; INK 1 ; PT 
1 “ ; PT 14,23;“ { ‘ ; PT 14,26; 

" ; pT 16,10; “ “;RT 16,2 1; “ 

T 16,28;“ ;RT 17,4;“ “;PT 17 

“ “;PT 18,11;" “;PT 18,28;“ 

PT 19,2.;“ “ ; PT 19,11; “ “ .; PT 1 

8.; “ “ 

670 LET X*»““: L.ET X m& : LET 



f , 
PT 


là 7; 
iSf 


.1= 


* » “ o “ 

X * ( 18 AND y*31) OR (X 
( X *20 AND y*31) 


6 S 0 

AND y*31) OR 
EN (30 TO 7000 
581 IF ATTA <X,y> 
800 
683 
Oidi 
666 
690 
O “ : 

600 
.3 “ : 

610 
q“ ; 

620 

«kll 
680 


9.8 

. il 

&T 
14 , 

l i 

• * ] 
9, è 

y et 0 

= 19 
TH 


12 THEN GO TO 


PRINT PT 

x , y 

PPPER 4; 

INK 

QUT 

264 , 0 

OUT 
se “ O 1 ' 

284 , 16 


IP 

L.ET 

INKEYi 
d $*^0“ 

THEN L ET 

X *■“ 

IP 

L.ET 

INKEY $ 
d * = “P“ 

» * * a “ 

THEN L.ET 

X * = “ 

IP 

LET 

INKEY* 
d **“P“ 

as " q “ 

THEN LET 

X * » “ 

IF 

LET 

INKEY* 
d * = “0“ 

— " p • • 

THEN LET 

X * SS “ 

PRINT RT 

l l 

x , y ; 

PPPER 4; 

INK 

IF 

X * =* “ O ' ' 

THEN 

LET ysy 

- 1 

IF 

x s * " p “ 

THEN 

LET y*y 

+ 1 
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660 IF THEN L ET X=X+1 

670 IF x|a"d" THEN LET X »X ~ 1 

660 GO TO 680 

700 GQ TD 900 

300 REM OOOPSI 

810 PPINT RT x,y; INK 2; PLR3H 
l;"S"; FLASH 0 :RT x-l,y; PAPER A- 
INK 0.; "UH" : POR fa0 TO 60: OUT 
264.. 16: OUT 354,0: NEXT f : LET 
Li =Li-l: IF Li > 0 THEN FOR r =0 TO 
600: NEXT f: OD TO 500 

8 20 IF Li < a*0 THEN GO TO 3000 
00 REM SUCCESS!! 

7010 BORDER 0: PAPER 0: INK 7: C 

LS : PPINT AT 10,8;"CONGRATULAZI 
ONI!At 12,01"HAI PERCORSO IL C 
AMMINÒ NELLA";AT 13,10;"JUNGLA!! 


PPPER 0 


"iJUOI R1PROUR 
THEN LET I. i =3 


AMMINÒ NELLA";AT 13,10;"JUNGLA!! 

7020 FOR f=0 TO 30: BEEP .01,f: 

BEEP ,01, •-f : NEXT f 

7030 GO TO B0S0 

70 4.0 STOP 

8000 REM ERRORE!! 

0010 RESTORE BORDER 0: PAPER 0 
INK 7: CLS 

8020 PPINT AT 10,1;"HA! HA! BROC 
CO! HAI USATO TUTTE LE POSSIBILI 
TP' R DISPOSIZIONE!" 

8030 FOR f*l TO 12: RERD a,b: BE 

É,P a , b : NEXT f 

804-0 DATA . 6 , -6 , .6.-6, .6,0, .8,0. 
. © , 2 , . 6,2 ,«6,8,.8,10,.8,18,.8,20 
, .6,26,2, -20 

8060 PRINT PT 18.0; " UU OI RIPROUR 
Rei ? (y/n) " 

8060 IF INK E Y $ = " y 1 ' THEN LET I. i *3 
GO TO 6 

8070 IF ÌNKEYJs'Ti" THEN PRINT US 
R 0 

3060 GO TO 8060 
8020 STOP 
8992 STOP 
§000 REM UDO DATA 

9001 RESTORE 9000: FOR f =0 TO 18 
9: RERD .9: POKE U5R ,, a" + f,a: NEX 
T f 

9010 DATA 0,0,1,1,4.8,96,127,63 
9020 DATA 0 , 0 ,192,192,134. , 131,26 
8,264- 

9030 DATA 24-0,66,18© , 282,124. , 63 , 

904.0 DATA 0,0,0,3,18 ,15,3 1,3 1 
9060 DATA 0,0,0,192,24.0,24.0,24.8, 
24-8 

9060 DRTR 31,31,15,15,3,0,0,0 
9070 DRTR 248,24.8,24.0,24.0,192,0, 
0,0 

9060 DRTR 0,0.0,1,3,7.31.63 
9090 DRTR 0,0,0,192,192,224- , 24.0 , 

9^00 DRTR 0,24,4.8,56,26,14- ,7,2 
9110 DATA 0,12,6,14. , 28,66,112,64- 


FOR f=0 TO 18 
"a" + f ,a : NEX 
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DRTR 0,234,170,230,®,0,0,0 
5 RT R 0,234,142,234,0,0,0,0 
DRTR 24,6®,126,60,24,24,60, 

DRTR 0,23© , ©0,266,365 , fi© , 23 

DRTR 20 ., 126,20 24 .,90,126,90 

DRTR 0,119,34,266,266,34,11 

DRTR 24,90,126,20,24,90,126 

DRTR 0,6,70,0,0,4.6,248,884. 
DRTR 0,0,0,24,24,0,0,0 
RETURN 
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DODGE 


In questa prova di abilita',voi siete rappresentati da un 
asterisco e dovete evitare i blocchi neri che vi si 
presentano all'improvviso sempre piu' vicini terrorizzandovi 
e cercando di intrappolarvi. Dato il RUM,vi sara* chiesto il 
grado di difficolta’ da 1 a 100 con i numeri piu’ alti a 
rappresentare i livelli piu' facili.. . Lasciate il livello 
1 ai superesperti. Muovetevi con i consueti tasti cursore. 


ffi0 INPUT "Per muovere usa i ta 
» ti cursore Difficolti' 

l(dif?Icite:i 100 (fa 

C1 3$ èQ^ER <• LET x»10: LET y»l 
5: LET S*0: LET a*89 

4.0 PRINT " " : POKE ffi.36.SiS, £6© 

g# XF SCREENI THEN G 

O T 0 160 

x,y LET s«s*+l 

x + iNT__ ( RND#5) - 1 , y + 


60 PRINT AT 
■?0 PRINT RT 
INT <RND#3)-1; 
PAU" “ 


a«CODE INKEY 
RND y>0 



INUERSE 1; 


oR code 1 


RND 

RND 

RND 


MEN LET y* 
y <SO TMEN LET x 
X > 0 THEN LET X» 
y <30 THEN LET y 


; & : PAUSE Sì 
ALTRA GARA 


S i tuoi Punti 
PUT "ENTER PER 
CLS RIJN 


65 




DUEL CABBAGEVAY 


E'uno strano,corto programma messo a punto da Seal Cavalier 
- Smith in cui vi trovate impegnati a piantare cavoli!. 
Guadagnate un punto per ogni cavolo piantatola ne perdete 
10 se avete la pretesa di disporli sui tetti delle case. Vi 
vengono sottratti invece tre soli punti se l'ortaggio 
finisce addosso alla casa o sotto uno degli alberi,provare 
per credere. 


3 LET a*® 
4. 





t OTi 



P RI NT 
c a vo io 
a. e io 
l i e 3 
t t ente 
b«; r i . " 

0 LET a «*" I 1 

M b # (18 j 35) 


Guadagn ì 
piantato 
Pianti s 
s e li rn e 
ai tatti 


CRBBRG 


1 punto a o 
, rn a ri a perdi 
u i i a c i rfi a de 
t t i & u i le c a 
:i o sotto gl 

LET S a® : LE 


©0 

90 

100 

«m 
110 
b £ ( X 

ili 

130 
14.® 
14. S 
THE 
: PR 
T fl » 
14-6 

ÌWT. 

RT 'ai 
1S0 

1 

1©0 

1 

170 

OD 


et 

mi ro ia 

i»c$+" 

LET b| (X) 

NEXT X 
L. ET y a 13 
£gT x « (RNP *12 + 1 


) 


1NT 
PR1MT 


PT SO , 18 ; 
RT 81,0: 


LET x «x + (RND*2 ~ 
LET »*s+l 
IF X >18 THEN LE 
IF X<1 THEN LET 
IF INT xa© RND 
N PRINT RT 80,4.; 
INI RT 81,4..; INK 

IF 1NT X»9 RND 
RT 80,8®: I N K 4; 
1,80; INK 
IF lNKEYI = ''5 ,r T 


) 

FLRSH 1.; " ST 
PRINT INK S.; 
1 :• 


T X a X — 1 
X ss X +1 

y =18 OR 


INK 
7 


■3 

4- T 


y s» 10 
• • 

E 
R 


tf-LL* THEN P 
iflL" : PRINX 

* L. p** *p I® j<5j c, -i- 

HEN LET ys»y 


IF XNKEY*« ,, S" THEN 

(11, y :i < 


LET 


IF 

TO 


SCREEN* 

880 


y »y + 

THEN 
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100 PRINT RT ll,y 5 IWK 4 1 ,, ® ,, 

1§0 POKE S369S,&§8 
200 GQ TO 110 

220 BEEP 1,1: LET h*h+l: LET fl« 
.F h «3 T HE N PRI NT "Punti»" 
È |g: LjET Z »TAN X: 

lSÌ8 ?P iNT^xls AND y =12 OR u ■ 1 
THEN PRINT RT 20,4..; 1NK 2; '' J».. 

• PRINT RT 21,4..; INK 7 ; " M "Tu 
T ® «» -2 


* - 10 : 

; » : FOR X «a i 
NEXT X : PAUSI 
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GHOST CHASE 


Questo gane e* una divertente fuga da un mostro che vi 
insegue ovunque vi dirigiate,se vi prende siete morti. L’ 
unico riparo di cui potete godere e’ una serie di mine 
sparse qua e la' per il campo che pero’ sono fatali anche a 
voi. Per soppravvivere dovete farvi rincorrere dal mostro 
facendolo pero’ incappare negli ordigni : solo a questo 
punto esso esplode ed il punteggio si incrementa. Il 
programma svolge le azioni ad un ritmo abbastanza sostenuto 
e ciò* introduce un certo grado di difficolta’ che rende 
piu' interessante la disputa. 



‘- ET B 

LS 

10 

16 

£0 


40 

43 
T f « 

44 
THE 

4® 


OO SUB 
GO SUB 
LET q.*i 
h ft 80 
BORDER 

LET A * 
PLOT 3ì 
©0: OPRI 

LET b w 
LET X et ; 
LET M =; 
LET e»; 

a * (XMT 
1F a m x 
N GO TO 
PRINT l 


LET ft *0 : LET p 


iPER 


1 N K 7: C 


INT 

a, 0 

LI - 
INT 


a* ( 
a * c 
a # c 

( RN 
OR 
4© 
RT 


205 

|nt 

D #8 
& * 


no# lai +a 

RRU 20S , 0 : 

, 0 : DRRU 0 , 

no# ia )+10 
(RND#8j ') +« 
(RNO * 10) ) + 
(RN&#6) :• +a 
) ) +10 


f ssy 


DPR U 
- 160 


10 

LE 
f ss b 


PRPER 
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4© IF q ,sp THEN GO TO 4-'9 
A7 LET q =p : POR 2 *0 TO 7 
TO 4 65 : NEXT 2 

49 IF y>80 TMEN LET y»S9 
B0 PRINT AT X , y INK B; CHR* 16 

e : LET V *X : LET w «u 

66 REM CHR* tl66J «" l'omino d 

sfinito 

©0 PRINT AT a , bINK 6.; CHR* 14 
4 : LET C «a : LET d = b 

©6 REM CHR* <1441 il a US 

fine d ghost 

70 LET a «a - c x < a 3 + < x >ai 

6£ LET b*b - (y <bl + < y > b 3 

90 LET «=x+2*(INKEY*b" 

NKÉY» «"7 " 1 

98 L. ET X » X + 2 •* (X <11 - 8 * (X > 2 0 3 

100 L.ET y >y +S* < XNKEY * * " © " T-fc # < I 

NKEY*«“©”) 

106 LET y*y+2*<y<B3-2*<X>293 
110 PRINT AT v , w ; ";RT c,d;" " 

' -“ ““ — x AND b»y THEN OÒ TO 


•P : GO 


da 


i -a * < i 


4 

G 


116 IF 
00 

188 IF ©CREEN* < a , b 3 w ' ‘ X " THEN 

0 T ri a 0 0 

130 IF ©CREEN* < x ,y1 a '‘ X" THEN G 

O TO 300 

140 GO TO 49 

;2g0 PRINT AT a b ; 


141 


FLASH l;CHR* 


'20© REM CHR* <1461 e 
finito 


il pop da 


£10 EP* 

all Bf 


TO 40 STEP 4 

X©00,-1© 


PAPER 4; 
FLASH 1.; 


FLA 

PAP 


aia nSxt Ì 

ai© PRINT AT a , b j 
2 1© LET S *S +10 
217 PRINT AT 10,0 
SH 1; "PUNTI" 
aie PRINT AT 12,0 
ER 0; s 

220 GO TO 10 
$!00 PRINT AT X , y ; 

310 FOR d *2 0 TO 1 

311 BEEP d/800,S5 

aia NE XT d 
31© PRINT AT x,y:“ " 

316 LET p **p - 1 : IF p *0 THEN GO T 
O 600 


FLASH 1.; 
STEP ~1 


B 1 


320 GO TO 10 
400 PRINT AT X,u; 

410 FOR d *1 TO 10 

411 BEEP .01,INI < 


4 là NEXT d 


x 


FLASH 1;“B” 

< RND#©01 ~2© 
y ; " : PR INT AT 

IF p «0 THEN GO T 


41© PRINT AT 

I» f • “ " 

“4.1 é. L ET P=P-1 
O ©00 
420 GO TO 10 

©00 PAPER 1: FLASH 1: GL 
©10 PRINT AT 10,12.1" HA 


" ; A 
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Big- POR N «4.0 TO 
Big BEEP 0.01,N 
Si7 NEXT W 
S20 POR d * 1 TO S00: 


CLS 

CLS 


£0 STEP -1 
NEXT d 


*, hs <S THEW LET hS»3 
550 PRINT RT J5,10j PAPER 3; " R 
ECORD ; h»; fif 10,0J PAPER ©; I 

NK 0;“PREMI UN TASTO PER GIOCARE 

I I 

©60 LET A|*IWKEY|: IF R**““ THE 
N @G TO S©0 
- LET P «©: LET a«0 
GO TO B 
POR fi «0 TO 7 



d : 
0 


POKE USR “a"+n , d 


ta se , ©a , 4 .a , 107 , ia? , 12? , 1 


POR n«0 TO 7 


©50 READ d: POKE USR "b “+ri , d 
©50 NEXT ri 

©70 DATA 14.5,63.0,196,0,74,13 



7 , 


+ n , d 


.00 POR ri «0 TO 7 
10 REFjJ^ d : POKE USR “ rn 

• fti'R 6,28,6,62,8,8,20,34 
. IETURN 

BOROER 0: PRPER 0: INK 7: C 
L §0B PRINT TA8 5; INK ©; FLASH 1 

* * * f 1, H n «, -r p HiS «, p •« 

■' ©l3 PRINT ' '"Divi muovere i L tu 
o uomo r; INK 8 ;chr* 156; ink 7 
;") per Lo schermo onde dirotta 
re il mostro ( ‘ 1 ; INK © ; CHR4 14.4- 
INK 7; " ) che ti insegue, addos 
so al. Le bombe PRPER 2; "X" ; P 

hPER 0 ; “ ) .Ma stai attento che il. 

mostro ti da' La caccia. Hai è 
possibi U ta ' , Buona ?o 

r t,j n a • 1 

830 f=<R ÌNT " ' “ UN TASTO 
©“" PER MUOUERE NELLA DIREZIONE 
UQLLITA" 

830 PRINT ' FLASH 1;"Un tasto P 
e r continuare’' 


©4.0 LET a f 
THEN GO TO 
©50 RETURN 


XNKEY*: 
©4-0 


IP INKEV**"“ 
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FROG OR A LOG 


Ovvero...la rana sulla trave. E* questo un altro 
impegnativo programma scritto da Malcom Young che impiega 
tecniche speciali di programmazione come la routine di 
'scroll' orizzontale a sinistra composta in linguaggio 
macchina. Normalmente il computer non riconosce gli UDG 
dallo SCREEN$,tant'e' vero che il sistema piu' usato e’ 
quello di ricorrere alla funzione ATTR. In questo programma, 
invece,l'autore ha escogitato una via che permette alla 
funzione SCREENS di operare in maniera normale facendo 
puntare la variabile di sistema CHARS alla memoria degli 
UDG: lo si può’ notare alle linee comprese tra la 300 e la 
490 le quali fanno in modo che il programma riconosca i 
caratteri definiti dall'utente comprese quelli non 
lampeggianti e con luminosità' regolare. 

Il programma gira indifferentemente sia sul 16 K che sul 48 
K senza necessita’ di alcuna modifica. 

Il game consiste nel catturare piu' insetti possibile, 
spostando la rana con i tasti * I' e 'P’ e facendola saltare 
con CAPS SHIFT. Dovete stare attenti pero' a non uscire 
dallo schermo e a non cadere dalla trave oltre che a non 
farvi prendere dal ragno il che significherebbe la vostra 
morte. 

Ogni round parte con 200 unita* di energia la quale cala 
lentamente a zero,se questo viene raggiunto,la rana 
deperisce e muore. 

Appaiono anche delle farfalle,per ognuna presa ottenete 10 
punti di energia piu' 50 di premio. Al momento del salto 
alla farfalla avete solo il 50% di possibilità' proprio 
perche’ il salto stesso e’ piu' difficoltoso. 

Il programma e' soggetto ad aggiunte,ad esempio potete 
inserire anche il grado di difficolta’ cambiando la forma ed 
il numero delle travi : anche qui' provare per credere. 



REM a « b »B C;C 
ahwGH i ,j »IJ 
REM la rana sui 
Dir PN r (x) seINT 
CUERR USP "a"-43 
GO SUB 9000: REM 

io SUB eàèHa : REM 
GO TO 600 


D « esE 
* L. M 


t «F 
+ 1 


u d 9 

dìsp i.ay 
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POKE 23606,0: POKE 2360'?, 60 
PRINT RT 0,0; BRIGHT li INK 
7.; PAPER a; "PUNTI: ftC;T 

"ENERGIA: M « ri ; TR» 84; "RRN 

r o g 
20 


•pél 
IE : 


11. 
" ; f 


0 


1 

ìl® 


RETURN 


tastiera 


REM Lettura 
LET k af^EEK sa_ 

let x«x+tk*eè) -(k«?3) 

IP x <1 OR X >31 THEN GO TO 3 


L 
G» i 


•T k»IN 6627© 
TO CK»2§4 OR 


G 


_ . _ . ___ . ,P ) #di +150 

150 PRINT RT u , x ~ 1 ; " B *' 

160 IF NOT POINT ix*6,3l) THEN 
‘ “O 4.50 

RETURN 
REM salto 

UpT Jp»l: LET bp » 10 : LET dS 
PR INt RT u , x - 1 ; " 

POKE 23606, lui : POKE 23607 , h 


?6 
170 
160 
*40 : 

190 

h 

m 
2 16 
220 
O TO 

23® 

; Rt u 
x ; ' ‘ a " 
. 005 

27 


POR l. SS0 TO 1 
L ET ù «sy » ,j p 

0O TO (y*17)*160+220 
IF 9CRECNI (y,X)>"r THEN 6 
300 

PR INT RT y - 1 , x " a " RND j P < 0 
, x " c " RT y +1, x " d " RT y +2 , 
RND i:jp>0 RND y < 16) : BÈEP 
bp 

NEXT L 

LET bpssbp+.i P 

LET jpajP-S* (y O) + (u >16) 

260 POKE 23606,0: POKE §3607,60 
RETURN 

LET a(«SCREENI (y,X) 

IF a 86 =* ’ * i * 1 OR .»**'•.)•' THEN LE 
T es (y-1) #32+X-2: L ET i «M ® T O e + 
a ) =S " : GO TO 360 

320 IF OR a # *“h“ THEN LE 

t =g : .^.LET^^ri «e n + 10 : LET sc*sc +3 

33§ POR z5&0 TO 30: BEEP .©6,-2 
BEEP .1,-2-.5: NEXT 2 
340 LET frog*fT09-1: LET S=0 : B 
EEP 1,-10: Ir NOT froq THEN GO T 
O 1000 

346 LET e ri *200: GO TO 6000 
350 LET SC»SC+10: LET jp«-l 
360 BEEP .6.10 
370 GO SUB 70 
3©0 RETURN 

400 IF SCREEN* (18,x) <>"«" THEN 
GO TO 450 
410 fiO SUB S0@0 


290 
300 
3 10 


4- ss 0 

■ i 

430 

x ; “ I 

111 


P R I NT 

RT 

y-i 

P R I NT 

1 l 

RT 

16 , 

RETURN 
BEEP . 

06 

, -6 


RT y 


x -1 


RT 17 
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460 PRINT RT 16, X.;" " RT 17 , x " 


°x*§ T 

4-ea p 
C" : BEEP 



x ; "D" 

,08,-B 

MT RT 17 , X ; " " : RT 16 , X ; 

.1,-6: PRINT RT 1© , X ; 


, TO 330 

REM routin* principale 
IF RND>.05 THEN OO TO 560 
130 LET Sta3a# (FN rC©)+9)~l 
TT TO St+1) «"IJ" 

Si INT RT 1,0; INK 1 i * 

. _ __rf i *«i « (3 TO :» 

600 LET X *X -NOT jp : LET l «IJSR Ufi 

EP .006,10 
SUB 100 

P TO (NOT b 5 *4.0+630 

d «sFN r C 4 5 ; LET b * b - 1 
■ by + (d*l) - (d=S) : LET 



i c '* 0 

630 LET 

640 LET 


bx *> bx + (d® sv - ( a *4 :> 

é50 LET byebu - (by >15) +(by <1) : L 
ET b X ebX + C b X < 0 5 - f. feX >305 
660 PRINT RT by , bx INK 8 0 1 JER 

li “Giri" 

670 IF NOT b THEN LET b«(RND>.9 
) # (rN r (S0) +6) : IF b THEN LET by 
«FN r (165+1: LET bx*FN f (30) 

S ©0 REM ragni 

90 LET S «S + t RND>.45 # ( (& <X 5 - (a > 
x 5 IT 

700 PRINT INK 0 j RT 16,0; q$; RT 1 
6 , S ; "LM" 

710 IF u > 16 RND ( X ss a OR X wS +15 
THEN GO TO ©10 

LET en*en-l 


730 PRINT RT 0,19; BRIO HT 1; IN 
-j?. p-rper s ■ e n ■ 11 

"74è IF tn<5'THÈN PRINT PRPER 9; 
RT «j.7 1 : PLPISH 1 "Fine Energia ! " : 
GO ©uè 330 

790 gg sub io© 

©00 GO fo 600 

©10 PRINT INK ©.; RT 1© , a ; " " ; RT 

1? , a ; "LM" 

©a0 POR Z «0 TO 1 STEP .1 
©30 BEEP Z,-Z*10: NEXT z 
©40 GO SUB 340 
©60 GO TO 600 
1000 REM tavola p unt i 
1010 GO SUB 6000; GO SUB 70 
10g0 IF a c <»h$ THEN GO TO 1060 
1030 INPUT "Hai fatto i i nuovo r 
«cord ! " , " ©a t ti i i t u o n o m « . " ; l 

:ne ri $ 

140 LET hfiwfic 


'60 DIM a « ( 1 ) ’ 

i©0 INPUT "Uuoi 


g i o c a r e ancora •? 


" ; a a 

1070 IF a É « " ri " OR at = "N" THEN PO 
KE 33693,56: PRINT RT 30,10; "OK , 

giocherai tra poco.": pause SO; 
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BORDEP 

*388 


•9© 
100 
©010 
L 5 : 
5020 


' : RRNDQMIZE 

? 8 B ©S ia0 


USR 4750 



PRINT 

PRIMI 


AT 2,0; 
TRB 4 ; "| 


Ì§BpSè: t | : °PAPER 1 : INK 4 ; i 

■ 20.; "I 

4 ; n|n ; TRB X9 . " H 

4 ; ■■ 

4" 

4 ; *’ 

1 ©.; 



I 

I 


I 11 I 


PRINT 
PR INT 
PRINT 

PRINT 

PR INI 

PRINT 


•• TRB 
TRB 
TRB 

TRB 

TRB 

TRB 


6 ; 

s; 

6 

B.; 

22 


■ " .; TRB 14 

Ù M 1 ' 

I" 


i i 


■ " .; TRB se; "V* 


RESTORE 
POR * m± 
READ n 


i j- r ri 

6 l. 1 ! 

«• SO TO 5170 


iN' 


10 

n 


THEN PRUSE 


16 , n 


BEEP 
NE XT a 
LEI X oPEEK 


IF X «*USR 
RETURN 

B 'RTR 2 ,B, 

! E M s tt t d 
BORDER 2 : 


GO SUB 
Rp I NT I 


5160 
5170 

sii© 

6200 

^0§i 

801© 

slt§ 

0 ; TRB .... _ . 

8060 PRINT 
B 31 :" " 

© 063 'PRPER 
©066 P RINT 
EEE EEE 
6067 PRINT 
FFF FFF 
© 06 © PRINT 
7 .: BRIGHI 
" ; n $ 

© 07 © L.ET y <*17 
3060 LEI .j p ss 0 
8020 LEI d* =20 
8100 RETURN 
©110 L ET hs* 0 ; LET 
0 DIM i«U 30 ) 

0 L. ET b= 0 : LET W =0 


2 3 ? 3 © + 2 6 S * P E E K 
a " - 1 THEN RUN 


70 

PRPL. 

" i'TRL 
PRPER 

© 

RT 1 © 
EEE 
RT 12 
FFF 
RI 2 1 
1.; " 


i , ci© , 2 

, 6 , 

3 , 92 , 6 

, 10 

s p Lày 
PRPER 

6 ; 

INK © 

: C 

: R 3 .; 

INK 

4 .; RT 

17 , 


31 ; " " 

1 .; TRB 31 .; 


, 0 ; "EE EE 

EEE " 

, 0 ; "FF FF 

FFF" 

0; pflPER 

RECORD 


2 ; 

h a 


" .; TR 

EEEEE 
FFFFF 
INK 


LET X «19 


n * se " 
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©170 L 



T n ®USR "«"-776: 
T U'ssPEEK 23870: 
RRNDOMIZE 
0: LET W«® 


RflMDOMIZ 
LET hh*P 


. r og»3 

_ «rissa©© 

LET a c a»® 

DIM q$ (32) 

p ET i i p (s| 

_ REM“definizione grafici 

901® RESTORE 90©0 

9020 FOR essi TO 12: READ c * 

9030 FOR b se© TO 7: READ ri 
904.® POKE USR C * + b n 
908® NEXT b: NEXT C 
906© LET m c b=USR "a "-4-S 
9070 POR m ssrn c TO me+4.1 
9080 READ byte : poke rn , by t e 
9®90 NEXT m 
919® RETURN 

II©© DATA "b"^§é?iié?é®Jié§^26, 

Ili© 6 Ì?RtÌ' •• c^ l ?ièé , ?Ì3i .6© , 129,153 
, 163 ,, 126 j 60 : REM 1/2 rana che a a 

èsi© DATA "d" J .126,128;60,90; 129, 
198,36,195: REM 1/2 rana che sai 
t a 

9£J30 DATA , 170,66,170,86,170, 

è 7 f*?§ "f",17®,©8,170,©5.0,0, 

REM tronco (sotto) 

£50 DATA "3",17,109,©6,130,170, 

§Sé.è 0 D^^R : "h^7l4 ? ?®8*£12® iàé . 

, 212,108,16 : REM 1 /■ 2 rarefali a 
9270 DATA " i " . 1 , £ , 4. , 73 , 253,5© , ; . _ 
,73: REM i ri a etto 
9aè0 DATA "j",224.,16,112,128,8S, 
0 ,0,0 : Rem coda inaetto 
930© ÒRTR " L" ,0,34,83,189, .166,17 
1 . 14.4> , 8® : REM ragno 

93 1® 6rTR "Hi" ,0,68,202,242,98,21 
0,10,10: REM ragno 

9320 REM a croi, i sinistro dei. cod 
ice macchina 

9330 DATA 33,32,©0,©2,3,5®,129,9 

j e* ; 9 $ 4 3$- 

l34-0 DATA 1,31,0,237,176,24.1, 

i & ec ri-*a — - “—** — 


170 


^ é ‘rè fJbj.WjCB5wrj-6.rw.. _ . 

225,36,193,16,237,167,17 
938® DATA 224. ,7,237,82,86,129,92 
, 61,32,220,201 
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COKE BACK 


Ovvero c’e' il rientro.Finita la giornata di lavoro,dovete 
rientrare a casa,ma per far ciò’ e* necessario attraversare 
una strada ad alta intensità' di traffico per guadagnare il 
marciapiede opposto.01tre ai consueti veicoli come 
auto,camion e motociclette dovrete vedervela anche con tram, 
robots e mostri. 

E' un game ad alta risoluzione grafica che mette a dura 
prova i vostri riflessi in quanto dovete far rientrare ben 
quattro omini per ogni round.Se fallite tre prove 
consecutive,la gara termina ed il computer vi chiede se 
volete fare un altro tentativo.Battete ora il programma e 
occhio a non farvi investire. 


UFI gìS2l£2 

30 L. ET 2=50010: 

ET V =3000 1: L ET w-- 

0 : PAPER 0 : BORDI.-R 0 : CLS 
O ©0 

" W , 3 : L.ET ,i=USR 

.i sU3R x : ROKE V 


U ET X a 
-S0068: 


Mi 


4.0 POKE 
W , 3 : L ET 
,i a U 3 Fi' Z 
'5® POKE 
w . 7 : L. ET 
i = U S R X : 
POKE V , © 

60 POKE 
E V., 15: LET 
LET ...isUSR 2 


R X : “POKE W , 17: 
70 R ET U R IN 


.. 7 : LET ,i alJSR 
.i =IJSR x : POKE W 

POKE V.9■ LET i 

LET .ialJSR Z 
W , 11 : " LET .i sUSR 
J ssUS R Z : POKE 
POKE W , 17 : L 


LET'J=USR 


cr. i I M 

60 RESTORE 90: POR ri ==50 
6006© : RE'ftD a : POKE fi . a : 
POR n*5007® TO 50ia©: RE 

Ut* Psr r-, a, ■ r*. IP” V T" i~. 


0070 : L 
L ET hs = 

: G O T 

X : P O K E 

, 5 : L. ET 

X : P O K E 

7 : LET 

ss I. J R 2 : 

X : P O K 

V , 15 : 
ET ,i e US 


0 10 T O 
IN EXT ri : 
RD a : P 
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TO USR "q. “ : READ a: POKE fi, a: 

N E XT fi 

130 DRTR 34. . ©0 , ©0,24 , 13© , 24,36 , 
36,0,3,4.4,63,33,46 13.0,334,46, 

34,262,133,160,46,0,7,13,24,63,3 
3,46,12,0,13 2,33,32,262,132,1SÒ , 
46 

140 DflTfì 12,4,©0,204,26©,6©,214 



160 DAT Pi àS5,355,2©S , é © 6,26© , 

7 , 26© , 6© , 240,136 , Ì32, 26© , 255,255 
, 2© 1 , ©©. , S© , 6© , 1© , 124,1© , 40,40,40 
. 2 © , © 2,12 7 , '7 3,7 3,13 7, 3 3 , 6 S 
1© 0 DATA Ì9S, 355,90,103.103,90, 
gì e; fs; f CJ *jjjj 2 ©. 6, ai © © 13 6 J (55 1 3 © , 1 3 © 

255 255 :! 255 ", 2 19 ! 319 ^ £19,2 19 l 2 19 

26© , 147,0,0,204,51,204,0,0,0 


1 a 
, et, ■ 


170 LEt r =0 : 

L ET a «13: LET 
160 PRINT AT 0.0; 

i; •• PUNTI s= 

190 PRINT AT 

pppppp ppp p pp 

2O0 PRINT AT 

N N N 

0; XNK 3;"OOOOO 
O O O 0 O ' 1 
210 PRINT AT 

1-1 f-1 M M ' 

7 ; ' 1 L. L L. L. L 


LÉT 1 ss3 : 'LIST S »0 : 
b =s 1S 

. . XNK 7; PAPER 

H X SS o f-1 X N X ss 

1,0; XNK 1;"PPPPP 

pppppp? ppppp" 

3.0XNK 4 ; " N N 
N N ";AT ©, 
O 0 0 O 0 o O O 0 0 


. 0 ; XNK © ; " f-1 1-1 

“ : AT 9,0; XNK 
L L L L !.. 


220 PRINT AT 11,0; XNK 3;“ OD 
O o o o o o o o o o o q o o o o o o “ ; r T 
13,0 ; XNK 0 ; PAPER 4 ; " 


23 0 L ET a % ss 1 ’ Q 0 o 0 o 00 0 0 0 0 0o o 0 0 o 0 0 

0 0 O 00 0 0 O O 0 O 0 O 1 ' : IN K 2 : P R X N T R T 

2,0 ; a $ ; AT 4,6 ; a « ; AT © , 0 ; a $ ; AT © , 
0 ; a $ ; AT 10,0 ; a i .; AT 12 0 ; a $ ' 

24 0 XNK 7 : PRINT AT 14,0;"- 


16,0 



1S , 0 




1 1 


250 

PRINT AT 

1 

© , 0 ; 

x n k © ; " 

D E 

O G* 

DE ,.J K 

DE 

G DE” 

; RT 1 

7.0 ; 

XNK ©; " F 


BC 

M X 

BC 

F 

BC MI" 





260 

FOR ri ss 19 

T 

O 20 

: PRINT 

RT fi , 

0 ; P R P E R 4 ; " 






• • . 


N E XT 

fi: PRINT RT 

2 1 ,0 ; 

P R P E R 2 ; 


XNK 

7 ; " R 

ili 

H 

N 

T R O 

j 

1 

1 1 


2 7 0 

LET a 1 ss a : 


LET 

bl»b: PRINT X 

NK 7; 

; I 

280 

P R P E R 1 ; 

RT 0 , 

1 © ; h s. ; RT 

0,2 9 

PRINT AT 

0 

, & ; 

( R N D 

PAPER 1 ; 

XNK 

"? ■ c, . 

BEEP .001 

, 

*20) +30 : 

PRIN 

T ' X N K 

©; PRPER 


© .; AT 

a , b ; " " 

: GO 
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THE: 


sue 4.0 

290 IF SCREENÌ (al,bl) <>' 
W GO TO 3S0 

300 1F a Issi THEN IF bl=S 
12 OR bis 19 OR b1= 2 6 THEN 


OR 
G O 


b 1 
TO 


TO 3 e 0 
P R P E R 3 
LET bsbl 
THEN LET 


a 1 


IF a 1 = 1 THEN GO 
PRINT RT al,b1 
R": LET asai: 

IF INKEY*»“0‘ 

LET S a fi + 10 : BEEP ,, 003,50 

L ET b 1 « b 1 + ( IN K EY $ = " 2 " R N IO 

- ( IN K E Y $ a " 1 ‘ 1 R N D b 1 > 0 > 

G O T O 2 30 

30: PRINT RT al 


IN 


'■90 
3 10 
320 
K 3 ; " 

330 
1-2 : 

34.0 
1 < 3 1 1 
350 

330 POR n =1 TO 

bl; OUER l; INK 

, n/2 : BEEP .001 
OUER 0 

370 BEEP 1,-30: LET 1 = 1 
T RT 0.29; P R P E R 1 ; IN K 

1=0 THEN GO TO 4-20 

360 LET .3=19: LET b-15: GO TO 2 
390 PRINT RT a,b; INK © .; " ": FO 

R Fisi TO 4: POR lìì =0 TO 3: PRINT 

RT al, bl; INK rn.;"R" : BEEP „ 003 , ITI 
BEEP .003, rn *2: NEXT rn : NEX.T ri: 

LET fi sfi + 100 : LET r = r + 1 : IF r =4 

THEN G O TO 4 10 


" R " 
RND *6© 


BEEP 

NEXT 


- 1 : 
?.; I 


. 0 03 
n : 

P R IN 
IF 


400 GO TO 330 
410 POR h=0 TO 
BEEP . 0©1 ,n *2 : 

EXT ri: LET r *0 : 
a *19: LET b = X 5 
420 FOR ri = 1 TO 
ri =-10 TO —20 : 
IF fi >h fi THEN 


5 , 10 : 
PRINT 
! ! I ! ! 

43 0 
440 
E F? 2j 
N T 
450 
incaiare 
a p p o s i ti 


BEEP 
t*0.; FL 


05,20: 
P5H 1 


BEEP 

NIJOUC 


05,30 
RECORD 


FOR n=l TO SO©: 

BEEP .1.10: CL3 
INK ? ; RT 0,0.;" 

R o ! ! 

PRINT RT 3.0; INK 4; 
ponendo t •' orn :i no 
spazi che s o ri o 
t o qua t t r o .. ' ' 

46 0 PRINT •• " " INK 
razione .pero 1 ' . n o n 
o rn e s e rn b r a p o i c h e •' 
v ersare u ri a s t rada 
» s i rn a e dette 


D e v i r 
n e g t i 
i ri t u t 


CO 1*3 :i. e 
rn u o v o n o t r a iti 


1 o i..i e s t. a 

s e rn p t i 

d e v i 

t r a f 

e n t. i" o 

rn o s t r x 


u a t i 
o bo t 

470 PRINT •' " " INK 7; "USA: 
e r andare a s i n i stra 
er andare a d e st r a 
e r atte a versare" 

450 PRINT RT 21,0; PRPER 1.1 
7 ; " Premi un ta ato p er g i oc 
”: PROSE 0: BEEP .05.10: 

P .05,15: C L. S : G O T O 12 0 


o p e 
e c 
a 11 r a 
c a t i 
L e q 


r 


1 


P 

- i""' 

0 -P 

IN K 
a r e 
BEE 


’0 


30 : BEEP , 005 , ri : 
BEEP .002, ri *2: N 
LET fi * fi + 1 é © : LET 
: GO TO 180 
100: NEXT ri: POP 

BEEP . 5 , n : NEXT ri 
ET hfi *fi : BEEP , 0 


NEXT ri 
: PRINT PRP 

R I E 
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BOVLIHG 


Il tempismo e' l'elemento principale di questo game poiché' 
si tratta di lanciare la palla al centro della serie dei 
birilli situati in fondo al corridoio.Se il lancio e' 
perfetto,fate 'strike' ed ottenete il massimo dei punti, 
viceversa avete a disposizione un secondo tiro per cercare 
di incrementare il vostro bottino.Potete giocare da soli 
oppure assieme ad altri concorrenti con diversi gradi di 
difficolta’.Si consiglia di iniziare col livello piu' basso. 


1 LET ri Sa"": L ET hS=0: PAPER 

0: BORDER 0: l'WK ©: CLS POR n » 

U&R "a" TO USR "b" + 7 : REflD a : PO 

KE ri J a : ME XT n 

a CLS : PRINT flT 0.10.1 "BOULIN 

G" ; RT 1 , 10; ''■ ■ ; Rfr £2 5; 1NK 

4- ; 1 • L„ a gara ha 10 r ou n d a 

c o n d u & te n t a t. :i. v ì o g n u n o " ; P'r 

10,0; FLR3H 1 ; " 

S C E G L 1 IL. L. 1 U E L 
L O l -te ri t o a - medi 

o 3 - v e L o c e 

• I . ppi | Uj p 0 . '£ p. 1 U 

NKEY $ » " 1 " OR INKEY $«"£•?." "OR INKE Y 

Se "3" THEN GO TO 4- 

3 F3 E E P 1,-20: G O T O ;2 

4. LET pa(UflL INKEYSJ *2 : IF Pa 
THEN LET pai: POKE ;53SE0,13 


a 


R 


— 0 ;i 

> * . 

P fi U S È 

IMK 

EY $ 

< " 

1" TI 

T O S 



© 

LET 

u 

a U R L 

7 

D IM 

q. 

1 B j : 

0 

LET 

>s. 

< 1 ) » 

S l 3 ) 

*0 : 

L. 

ET S 

9 

LET 

s 

i: s j si 

10 

P R X NT 

RT 


as i.£i i —, i x i ... 1 
0 : ' XF 1NKEY$ > " © 
HEN BEEP 1 -SO : 


( 1 
O 
G O 


XMKEY$ 

D X M S r fò I 

0: LET S (a j 

r. 4. ;i a 0 

0 : l. et » c e j 

15,3; "Ree rn i 
ia nciare La palla": PRu3E 
Il GO SUB 2000 
9 4 F O R r a 1 T O 10 : F O R 
•9B CLS LET j «0 : LET 
aa0: LET baO: LET C =0 : 

LET e =0 : LET f =0 
9 S PRINT RT 2,2.; IMK 


0 : LET 
P e r 


|0 

f 

50 


q. 

g 


= 1 T O U 
:0 : LET 


LET da©: 
"PL«VE R 


1 


1 .; s ( l :i ; RT 

4 

jj.ij 


X N K 4 .; 

1 P L fl Y E R 

o 

cZh 


1 ; s ( Si J ; hT 

e, 

o 


IN K 6 .; 

‘ PLAYER 

3 


' ; :=■ ( 3 J .; RT 

8 i 



IMK S; 

' P L fi Y E R 

4 


' ; S (4) ; RT 

10 

, 

•ST- j 

INK '? 

; "PLRYE 

R 

ER 

È : 

© 

'• ' a ( S ì ; RT 
: 11 ; :£. ( e .1 

1 


.i l:s! 

.; INK 

3 .; "PLfiY 

T 

9? 
1 ; 

PRINT RT 
'ROUND: " .; 

17 

r 

.1 

s.; 

X N K a 

; B R X G H 
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QfìT 0,0; "BO'.-.lL XNG '’ RT 1 

' 100 PLOT 1159,0: DRflW 0,17© 

11© PLOT £?4.©,0: DRflU 0,17© 

111 PRINT RT 15,0; "REO, : 
di : ";RT 1 © , 0 ; n $ 

112 PRIMT RT a*q , 1“ 

11© INK © : LET y »0 : LET x «0 

120 PRINT RT 1,22;"fl R R R";RT 
3,23; "fl R R " ; RT 5,24; " R R ' 1 ; RT 7 , 

e "là© POR W « 1 TO a: PRUSE 25 

130 POR fis21 TO 29: PRINT’ RT SI 
, n; M B" : PRINT RT 21,n-l) " ": IP 

PEÈK 23560*102 THEN GO TO ©00 
13© IF pai THEN PRUSE 1 

14.0 NEXT n: POR n =28 TO SI STEP 
- 1 : PRINT RT 21,n;"B": PRINT RT 

2l,n+lj “ : IP PEÈK 23660*102 T 

HEN GO TO ©00 

14-© IP P=»l THEN PRUSE 1 

150 NEXT n: GO TO 130 

500 POR m«£:0 TO 0 STEP -1 : BEEP 

,01,20: P R I NT RT Hi ,n; " B " 

505 IF pai THEN PRUSE 1 


©10 PRINT RT rii + 1 , n .; “ 


520 . NEXT 


( 3000 +(n-ai) * 100 ■) 


530 

PR I NT 

RT 0 , SI ; •• 


• i 

538 

PRINT 

RT £2 *q , 0 : •' * " 



5 3 G 

POKE 23560,13 



5 4- 0 

N E X'T W 




54-1 

I F q a 1 

AND jssl THEN 

LET 

S < q 

:i a S ( q :i +30 : 

GO SUB 1500 : NEXT 

q : 

NEXT 

r 




54-a 

IF gal 

RND .j a0 THEN 

LET 

s. ( q 

) ss s i q 

j + 1 6 : 

GO SUB 1600: NEXT 

q '• 

NEXT 

r 




5 4-3 

IP a a 1 

THEN LET s(q) 

ss .ss* l. 

q ;• +i 

54-4. 

IP b a 1 

THEN L ET » <q) 

a S ( 

q :i + 3 

54-5 

IF Cai 

THEN LET s ( q ) 

ss (q) +6 

54- © 

I P d a 1 

THEN LET S(q) 

®ì ( q ) + © 

5 4.7 

X F e a 1 

THEN LET a (q) 

*s < q j +3 

54-6 

IF fai 

THEN LET 3 (a) 

ss li 

q :■ +i 

550 

IP a a 1 

AND bai THEN 

LET 

S ( q 

) a S i. q i ~ 1 




«r, «sr, ^ 

IF a a 1 

AND Cai THEN 

LET 

S ( q 

:• a S f. q 

:• -1 




S SS O 

IP bai 

RND Cai THEN 

LET 

3 C q 

j ss S Cq ) - 3 




FJ F? :*=; 

I P b a 1 

AND dal THEN 

LET 

s »:q 

) ss & (a :i - 1 




5 © 4. 

IF Cai 

RND e al THEN 

LET 

3 ( q 

) ss & ( q 

; -i 




GJ R *5 

IP C a 1 

RND dal THEN 

LET 

2 - (q. 

.1 a•*. (q ) — 3 




©56 

IP dal 

RND e al THEN 

LET 

S •: q 

) ss S ( q 

:• -3 




557 

I P d a 1 

RND fai THEN 

LET 

s ( q 

.1 SS » i. q ) ~ 1 




55© 

IF « a 1 

RND fai THEN 

LET 

S « q 


84 




:i s> s i; q. :• - a 
BEG LET ja0 
000 BEEP .25,0: 
P .5,2: NEXT q 
670 NEXT r 
SS® GO TO Q®00 
1500 BEEP .25,-g 

EEP ,25.2: BEÉP 

g : BEEP . 25 ,. -2 : 


B E E P 


BEEP 


BEE 


U7 U- l~~. r~ g i=. W .1 -l- ■ WU. k» I * ■ .1 • 1 

5.7: BEEP .25.1: BEEP .25 

P .25.4: BEEP .25.7: BEEP 
BEEP .26.4: BEEP .25.5: 
25.7: BEEP . 25 , -S : BEEP . ; 

EEP .26.5: BEEP .25.2 

1001 REtURN 
1600 G O 0UB 1S00 : RETURN 

2000 GO SUB 2300: BEEP .375, 

fllJSE 0 » 2S : GO SUB £2 30® : BE E P 
, S : PAUSE B « £2 55 : 

2099 RETURN 

2100 BEEP .125.9: BEEP . 1; 

EEP „ 125 9 : BEEP . 125 , S : I 

25,9: BEEP .125,4: &EEP . 

BEÈP ,125.5: BEEP .25.2: I 
.25: BEEP 1 . 125 , -6 : BEÈP » 


’7 : BEE 

jS» is:* _ o 

BEEP 7 
!‘o 4- : B 


BEEP 
12 0i . 3 
BEEP 

n p", ( jjp 

BEE P 


1 p 0 , : ss i ■ B 
i§ E é P ‘ „ i 
, 12S , ~f ; 

p R U :3 E S> 
u 1 2 È* i " .ss! : 


: C5 e. c, n x cr; — o : oc. c. i~ « ..l .se -~> , — .ss: : 

BEEP .125,2: BEEP .125,4: PAUSE 
fò . S 55 


2101 

2300 

RETURN 

GO SUB 2100: 

B E E p 

. 1 

a b a : 

BEEP » 

BEEP 

.125,1: BEEP 

» O ks; 

M mIn I.-M ’hH 1 # | 

4. 1 

SS , B : 

PAUSE 6.25: 

B E E P 

- 1 

a b 

, — et : 

GO SUB 2100 : BEEP 

„ ìas , 

~4- 


BEEP 

. 125 , 

S : 

BEEP . 125 

, 4- : RÈ 

TURN 


3000 

R ET U R N 





3100 

IF 

a = 1 THEN 

RETURN 




3 110 
3120 

LET 

RET 

a si 

URN 





3200 

IF 

b ss 1 T H E N 

R ET U R N 




3 S 10 

IF 

ni ss 1 THEN 

PRINT 

RT 

ni 

, a a 

M I i 

: L. 

ET b = 1 





3 SS0 

RET 

URN 

RETURN 




3300 

IF 

C ss 1 T IH r£ N 




3 3 10 m 

IF 

rii ss 3 THEN 

P R I NT 

RT 

rn 

,. a 3 

3320 
,. 

IF 

rn ss i t H E N 

P R I NT 

RT 

rn 

.. a a 

LET Casi 





3 3 3 0 

RET 

URN 





34-00 

PRINT RT rrì , S 

Sì 11 



11 

3 4- © .1 

IF 

rn se 1 R N D w 

srl THE 

N 

LET Jssl 

3405 

IF 

rii SS 1 THEN 

LET W 

cnl : 

!.... 

ET g - 

34-10 

RETURN 





3S00 

IF 

d ss 1 T hi E N 

RETURN 




35 10 

IF 

l i 

rii se3 THEN 

PR I NT 

RT 

rn 

a 4- 

3520 

IF 

rn ss 1 THEN 

p r ::i: r-rr 

RT 

ni 

, 24 ; 

• • 

i i , 

LET d s= 1 





3 S 3 © 

RETURN 





3000 

IF 

assi THEN 

RETURN 

RT 


, 26 ; 

36 10 

IF 

rn so i THEN 

P R I NT 

Ili 
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" : I...ET e = 1 

3 6-S0 RETURN 

3 7 0 0 I F f a 1 T M E N IR E T U R N 
3710 LET f =1 
3300 RETURN 

000 0 Pfl IJ SE 10 0 : C L3 P RXNT PT 1 

0 , x 0 " G a r a r" i n i ta “ 

00 0 5 P R U SE 100 

•3010 POR n =s X TO 6: XF s r. n ) h a TH 

EN LEI ha *S (lì) : GO SUB 9500 

9011 NEXT n 

9 10 0 G O TO 3 

9500 XP a ( n ) > »a ( 1 ) RND a ( n ) > ® 

) r n D a ( r'i :« > « a ( 3 ) R n d a ( n ) > « a »: 

R N D a ( n :• > « a ( 5 ) R N D a ( n ) > = a ( s ) 

EN L ET n * = "■■: PRINT RT 3 0,0.;" 

t i i L t. u o n o ro e: ( m a x « 1s i. e t t e r 
" fi : INPUT li $ : X'F LEN ri* >13 T 

GO TO 9500 
9150 1 RETURN 
99 90 DR"T R 3 4. i (2 4.2 4 , 60.1S6,13(5 i 12 
6,135.6 0,136.3 5 5,35 5,35 5,355,136 
,60 

9991 SRUE "bowling" LINE 1: GO T 

O 9 9 9 9 
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Tj*.rn f,m 




PASSATEMPI 


CARD PAIRS 


Il gioco delle carte appaiate e' noto a tutti. Si tratta di 
scegliere da un mazzo di 20 carte le coppie uguali fino ad 
esaurimento del mazzo stesso. Vince chi le scopre tutte col 
minor numero di mosse. 

Inserite ogni volta le coordinate della carta da scoprire 
battendo per primo il numero della colonna e poi quello 
della riga,ripetete quindi l’operazione per tentare 
l’accoppiata. Se le due carte scelte sono uguali vengono 
cancellate dal tavolo,viceversa tornano a coprirsi. Il game 
termina quando terminano le carte e solo a questo punto 
viene mostrato il punteggio consistente nel numero delle 
mosse. 

L’autore Raymond Blake vi invita a battere il suo record 
personale di 17 mosse. 


30 BGRDER 0: PRP&R 

L» 

©0 DIM a <4 
é 0 LET aio ___ 
S313a3334.364.14S4. 

s ® P8B +8 


IH: INK 7: C 

ITT& 

2 s 3 s 4 a 


3 4 - 4 » 4 - 55 
10 

100 LÈT C *LEN"a|: LET b»IMT CRN 
D # l x 3 1 # a + ì : L ET b èi a 4i ( b Tu b + 1) 
u ìae^LÈT X «URL b*(l): LET y«URL 

( O 1 

*' • — ainK td b-i>+<a*(b+a 

a uìyfai : NEXT j: NEX'T 


b f.30 LET 
T O ') R NO 
1S0 LET 

ai© por 

i~1; INK 

1 èaS E POR Ì j«0 TG 3: PRINT RT J*S+ 
3.0; INK ài INUERSE 1, BRIGMT i; 
i +1 • POR i *0 TG 4: FOR K«fi TO S\ 
PRINT RT J #B+Kj i *4+^ 

■ " : bjeXT K. : BEEP . 03,30 : NEX1 » : 

gÌìs^pi^int RT 6,23.1 " scegli " : RT 


isl 0 TO 6: PRINT RT 0,4* 
a; IN U ERSE 1; BRIOMT 1; 


87 



0 

2 

0 


a 

3 « 


' A CO. 

34.® 


S6 


tF '' XNKBV * < > 


350 

l?è | 
§'?0 l 
380 

m 1 

20 : I 
4-00 
60 
4-10 
Ripr 
420 

i > 

43 
46 

T © , 
470 
2-1 
T C * 
420 
630 

I A* 6 


LET ai» INKEYf: 1F 
4-' THEN OO TO 360 
PRI NT AT 8,24;q*: 

T ql«UAL q* 

F INKEYIo"" THEN OO TO 37 


THEN OO TO 34 
q*<"l" OR 
©EEP .06,. 


Ri» XNKEYÉ: JP 
MEN OO TO “ ' 


L.6T 

6" THEN OQ T _ 
PRXNT AT 8,26 
T q2«UAL q* 

F *(ql,q2)<>0 


380 

q i : 


AT 


q # •< 1 ' 1 " OR 

©EEP .06, 
THEN OO TO 4 
10,23 j INUER8E li" 
PRXNT AT ©,24;“ 


PRINT 
v a " 

©EEP 1,-10: 

AT 10,23: 

OC» TO 330 
PRXNT PT 6,23; " 

4; " 

LET X 1« (qi-1) *6+2 : LET 
*4+2: LET X «*x 1 : LET y» 

q1I LET d»qg: OO SUB 8 
LcT qlaaC: L ET q 2 * d 
PRINT AT 6,23; 77 Scegli 


" ; A 

1 * ( 

: L 


21 

t 

0 * 


S©0 

> 1 

0 

I : t 
;?0 


XP ' XNKEY*< >"" 
L6T q 


4*' TH|In 


THEN GO TO 
q# < "1" 


AT 

64 

OR 


L. 


bINKEYI: XF 

/•*' |**| * N t l " A Hf rii 

& Q i O O O 0 

PRINT AT 6,24;q*: ©EEP .06, 
ET P 1 sUAL q *i 

XP INKEYIo'"" THEN OO TO 67 


580 
q$ > 
620 
20 : 
600 
60 
610 
Ripr 

620 
I I 

630 
660 
T 6 . 

670 
P$~ 1 
ET C 

700 
OO T 
706 

*$Ì0 

, y i ; 

i 




6" t 3*N OO TO 680 
PRINT AT ©,26.;qi 
T P2 »UhL q* 

2 ) < > 


IF 


q*<*‘l" OR 
©EEP .06, 
a Cp 1,P2J'O0 THEN OO TO 6 
AT 10,23; INVERSE li" 


PRINT 
v a ' ’ 

©EEP 1,-10: PRINT AT 8,24;" 
AT 10,23 M 
OQ TO ©30 

PRINT AT 6,23;" ";A 

4 ; " 11 

LET X2* <P 1-1) #6+2 : LET u2«C 
*4+2: LET X*X2: LET y»y2: L 

PI: LET d atp 2 : OO SUB ©00 
LET plsC: LET p2ad 
LET K=JC+1 

IF a (ql,q2) < > a C p1,p 2) THEN 

FOk i =s0 TO 12 STEP 6: BEEP 
N E XT i 

FOR i es0 TO 3: PRINT AT xl + i 
" ; AT x 2 + i ,y 2 ; " ": KlEXT 
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•7S0 LET a tql , qffi) »0 : LET « ( P 1 , P 2 

”§0 LET C»0: FOR i«l Tp 4- : FOR 
J»ì TO S: LET C*C+ a(i,Jf: NEXT J 

NEXf r 

740 IF c «0 THEN GO TO «00 
760 OO TO 300 
'760 BEEP .6,0 

768 FOR f*l TO 200: NEXT f: FOR 

, 8S, »Mr'' ? 

l S5§ ^ S T8 R g 0 ?» O0: roR ,-x ro a ( 
Cjd) : READ X* : NEXT 2 
é20 PRINT RT x,y;z*( TO 3);RT x 
+ X,yjZi|(4 TO 6) 

63S PRINT RT X+2,u:z*(7 TO 2)jR 
T X+3.Wi 2 * ( 10 TO 125 
660 RETURN 

Isl pfelNT RT 6,2;"Ci »Ci riuici 
t. o dopo " j RT 1S , 11 ; ft c r ' Untativ 


t. o 
i •* 

nIS 


FOR 

i 


i al TO 26: BEEP .01, i 


4.0 LET a*a"uri tasto par una nu 

S gara 71 : PRINT RT 12,2; 

0 FOR i«1 TO LEN a*: PRINT IN 


ova gara n : PRINT RT 12,2; 

980 FOR i«1 TO LEN a*: PRINT IN 
6; ajjì^: IF a IT i ) < > " " THEN B 

Sb 8 ' Ir || (i ) a" 11 THEN PAUSE 2 
G@S NEXT i 

9&© IF INKEYI»"" THEN GO TO 960 
§7@ RUN 
000 _DRTR 


THEN PAUSE 


4J 


ÓRTR 
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SUB SEÀRCH 


In questo singolare game studiato da Malcom Young,dovete 
rintracciare e distruggere un sottomarino nemico nel piu' 
breve tempo possibile mettendo in azione la vostra flotta e 
lasciandovi guidare dal suono del sonar. 

Disponete di una flotta di navi da guerra formata da un 
incrociatore,da due unita' di pattuglia e da tre fregate. 
Ogni imbarcazione può’ portare solo un numero limitato di 
bombe di profondità’ e quando queste sono esaurite, l’unita’ 
deve tornare al porto per caricarne altre. 

Le istruzioni complete le trovate nel contesto del 
programma. 



REM 
REM 
REM 
h * M 
QEF 
N a 


Ri cerca 

© Ma 

b *B 
i e I ,i ».J 
FW ’ 


suba cquea 
m Youiig 

c *c d 8& * ss E f ap 
K a K l « L. rii » M H * N 
«Fn a (ax ,ì il 


50 1 

&EF 

FN " 

s 

(a , 

(a - b 
©0 1 

) f 

FN 

r 

( x :i 

70 1 

fi IH F 

FN 

t 

( J 


b < :• «SOR 

■ sci,.. 

b :i ss R B 3 ( a - b i *RI3S 


) 


) < 7 ) * ( i. « rfi 

e® go sua 
e grafici 
Se» ©ò su© 

GO SUB 
h e r rii o 
REM vv 1 
REM rii o ' 


, rei 


(R N D #X ) +■ 1 
) ss: ( RBS < ...i - k. 


9000: REM d« f inizion 
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100 



100 : REM istruzioni 
i00: REM preparali o 

V V V V V V V V V V V 

i.. sol t o rn a r i 


v v v v v v v v 

mento de 


1©0 
190 
$lg 
SS 0 
) THE 
230 
) THE 
240 
£50 
230 
clart 
£70 
is , a i 
INK 
m 0 
2®0 
0-FN 


s m ss F M r C © 
a x «s s x + (s m 
a y ss s y + ( a m 
ad =s s 3 + (IDI 
a x *s a x + (a x 
s y ss a y +• (sy 
adsssd + (ad 
c ss 1 T o 6 
( a x . a ( 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
POR . 

IP FN t 
N GO TO 
IF FN t 
N GO TO 
NEXT C 
REM rn o a a 
PRINT »0 
i dadi.' 
IF i (LI) 
;"Sonar"; 
0 ; FLASH 
INK 5;" ' 

IF a ( 1 j l i 


6000 
( a y , a ( 
S©00 


s l ) 
3 ) 
5 i 
1 i 
li 

1 :i 


- ( a rn = a ) 

■- ( a rn ss 4 . ) 

- 1 . s rn ss 15 i 

- (a x >19) 

~(a y>19) 

-(ad>9) 

) , a y .. a ( c , a ) 

) a x ..a c c , 1 ) 


e 


deb 

" un 

> =0 T 
RT 16 
1; I NT 


9 i 
t a 

HE 

.1 f£V 

F 


ocatora 

sto per 


L a n 


N PRINT RT 
1 ; "Legge: "; 
N b(); FLRS 


b ( ) 


PAUSE 10 


ss 0 THEN BEEP 


1 , 1 
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£90 IF INKEYI."" TMEN OO TO 38® 
300 REM dadi 
306 L. ET nbonb + 1 

310 LET d «FM r (20) +10: LET m«FN 
r J © > 

320 FOR i*1 TO d 

330 LET m «M * C m < 6) +1 : BEEP . 1 , rn 
34.0 PRINT RT 16,31] "Disponi di 
" RT 19,31] CHR* (Ì61+I») J " ffi O * * « 


360 WEXT i 

3è0 PRINT BRIGHT 1; PLR8M 1] IN 
rn ; PAPER 9RT 19,31] CHR* (181 + 


K rn F 
rn ) 

370 BEEP 1,10: LET n =0 
38® LET n»n* (n <8) +■ 1 
590 LET P*S (n,2) : LET r* S £ ri , 1 ì 
396 IF r < 0 THÉN GO TO 360 
4.00 PRINT FLASH 1] INK n-1] PRP 
ER 7 RT p ,r]df !( 1 ) 

410 PRINT PAPER n-1] INK 9]RT £ 

^,6; s # i n :• 1 ' ( 1 ’ s £ n , 1 ) * ( n , 3 ) ; 

4-30 PRINT RT 31,8] “bomba rimast 
a : 1 ‘ ; * ( n , 3 :■ 

430 INPUT RT 0,0: "Muovi . ; un 

E rn#: IF rn # * " ' 1 tHEN PRINT INK n- 
1 : PAPER 8 + (n«6) ] AT P , r] d « < n J : O 
a TO 360 

440 LET ULEN rn * : IF L > rn THEN B 
EEP 1,-10: GO TO 430 
450 FOR Casi TO I. 


Coti T O 


0,0 
LINE 


460 IF rn # £ c ) < > " n " AND rn # C c ) < > " * 

" AND rn $ ( c ) < > " w " AND rn * £ c > < > " e 

AND rn # £ C :• < > ' ’ d " THEN INPUT RT 0,0 

"Input «reato , Riprova, " LINE 
rn#: É5G TO 440 

470 IF m*CC)*"d" THEN GO TO ©70 

4©0 NEXT C 

490 REM movimento nave 
500 FOR qsl TO t. 

610 PRINT RT p,r; PRPER 5: BRIG 
IT 1] INK 0] "F" 


( IT» # ( q > ss 


520'BEEP ,1,15 

530 L..ET p ss p + £ m # ( q ) ss " & ‘’ > - ( m # ( q :• ss 
"n 1 ‘ j +(p <0) -(p >20) 

635 IF P=20 AND r < © THEN LET * £ 

n , 3 :i ss3 : BEEP 1,20: PRINT RT £1,0 
; ’ 3 bomba a bordo.": LET p =19 

5 4 0 l. ET r ss r + ( m # £ q ) ss • • e 1 ■ :■ - ( m # ( q ) s* 

1 ‘ u.i ’ ‘ :• + ir < 0 :i - c r > a & > 

660 IF RTTR (p.r) <64 THEN GO TO 

3000 

560 PRINT RT p.r; PRPER 6] INK 
n- £ n < > © J ; OUER 1;d # £n) 

570 BEEP .1,20 

560 LET rn « rn -1 

590 PRINT BRIGHT 1] FLASH 1] IN 
K rn ; PRPER 9RT 19.21; CHR# (181 + 
rn ) 

©00 NEVT q 

6 10 LET s £ n , 1 ) ss r : LET ft £n ,2) =P : 
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IF MOT U TMEN OO TO ©5© 

620 INPUT "Lanci I. a borri ba?"; LI 
NÉ i « 

SO© IF i * < >"y" AND i « < >"n" TMEN 
INPUT "Lanci la bomba? " LINE 
1 J0 : GO TO 60© 

64.0 IF i*a r, y" THEN GO TO 670 

©60 IF rrt > 0 THEN GO TO 380 

©60 GO TO 120 

©70 R É M Lancio de Ut bomba 


8 70 REM Lancio de l Le bomba 
76 IF s(n,3)<l TMEN PR1NT FLAS 
H 1;AT 21,0.; "Borri ba finii, al": GO 
TO 68' 


RINT RT 2,21j PRPEP © 
ALLÒ" 


INK 


PRPER 


890 FOR avi TO '7: BORDER 7: BEE 
P .3,-1: BORDER 6: PAUSE S: NEXT 

700 PRINT FLASH 1; INK '7: PRPER 

à : RT 2 1,3; "Bomba pronte! 11 

710 INPUT "Profondità'? d- 10 ) 

" ; dp 

720 IF dp <1 OR dp >10 THEN INPUT 
(dp i. “ erratOjfiprowa ") dp : GO 
TO 720 

730 LET dpsINT dp 
740 BEEP .3,-1®: ©EEP > 2 .. 20 
760 FQR f » 19 TO -dp «TCP -1 
760 BEEP - 02, r 
770 NEXT f 

760 BEEP .6,-10: PAUSE 20 
790 IF S X » r AND sy=p THEN BEEP 
.6,1: IF Sdadp THEN GO TO 1000 

800 LET *tn,3)«»<n,3)-1 
610 PRINT FLASH lj RT 21,0; "Sbag 
Lieto ! IF SX*=r AND sySp THEN P 


770 NEXT 
760 BEEP 


èÌ nT . AT 21 , 6 ; "IL sub « ' sotto di 
t* ! " 

620 PAUSE 100 

630 PRINT AT 21,0.;" 

©40 GO TO 110 
1000 REM sub distrutto 
1010 BORDER 1: PAPER 1: BPIGHT 1 

: INK 7: CLS 

1020 PRINT RT 2,3.: " CONGRATUL AZ IO 
NI ! r 

1030 PRINT AT 4.3 ; "Sai r i u sCi to 
a distruggerà il" 

104© PR INT AT 6,3.; " s u b in " .; n b.; " 

V O L t i£ 1 * 

1060 'PRINT "Hai il "jpc/nb*100j " 
£ di affici®nsta." 

1060 INPUT "Uuoi giocare di nuov 
o •? " ; LINE i« 

1070 IF i*="y" THEN RUM 

1000 BORDER 7: PAPER 7: INK 0: © 

RIGHT 0: CLS STOP 

3000 rem collisione 

3010 BEEP 1.-12 

3020 PRINT AT 21,0;"COLLISIONE!" 


THEI 

otto 


C OMGRATULAZIO 
s ai riuscito 
sub in " | n b.; " 
pc/Hb* 100 ; " 


ri u o v 
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303© IF PiTTR (P , r ) «40 THEW PRINT 
RT 20,0; FLASH 1; IWK 0 : PAPER 
7; st (ru ; " » e i affondato!": L ET s 

(n , I) *~i 

3040 IF RTTR (p,N <n*©+n-l THEW 
GO TO 310© 

3060 PRINT RT S0,0: FLASH 1; INK 
© : PAPER 7; si(n» ; " sei a f fondit 
O ! ' : L ET S ! ri , 1 ) a - 1 

3060 FOR a =1 TO 0 STEP -.1: BEEP 
a,a #5-10 : NEXT a 
3070 PAUSE 100 

3060 PRINT RT 20 J 0.;TAB 31;" " ; TA 

B 31.; " 

3090 GO TO 110 

3£<|| g.|T p S»RTTR tp.D-4.0 

4999 REM ttttttttttttfttt'Httttt 
600© REM attacco sottomarino 


IND> ,7 T 
. . jER 2: L 
PRPER 8 ; 

= 1 T 0 7 : 
iORDcfi 2: 


N GO TO 



!B 


PRÌN 
ROSSO 
R 4- : I 
6 : Ni 


RT 


V r 

K* i*5*i i*54 CSf T BC* 

£§lfiS BOP 
2,21; p 
g02| POR 

603© 1F RND<0.6 THEN GO TO 6600 
5040 PRINT RT SI,©; INK 7; BRIGH 
T lislJl c ) ; " sei attaccato!" 

5®4| R^SE g0 


é©6© L 
606© P 

fe H l ; " P r * ffi i 


I NT RT S1,0; PRPER 6; FLA 

e n e . 


!:■ 


"F -- e spera in 
607© FOR t«l TO S 

5080 L. ET tl*FN r (10) : LET P f = ( t 1 
*8 + 163- 1 -208 

5090 PRINT RT ©,20+p; PRPER 6; I 
NK 1;"+ " 

6100 LET p»p#(p<i0) +1 
6110 PAUSE 10 

5120 PRINT RT 8,20+p; PRPER 8; I 
NK c- (c < >8) ; d $ C c J 
6130 PAUSE 10 

5140 IF XNKCY*<>"f" THEN GO TO S 
090 


6150 FOR i=7 TO 1 sigr -x 
6160 PLOT 208,62: DRRU INUERSE 1 

; INK i ; P f , 4-0 
6170 ©EEP ,06,a : NEXT i 

6180 PLOT 206,62: DRRU INK l;pf, 

4.5: PAUSE 60 

619© IF tlap THEN GO TO 5300 
5200 PRINT RT 21,0; PAPER S; INK 
7 ; " Rn data bene! " 

5210 PRUSE 100: PRINT RT 21,3i"A 
t tanto! Ti Siluri": FOR a ss 1 TO 7: 

BEEP . 06 ,a : NEXT a 
5220 PRUSE 60: PRINT RT 21,0;TAB 
3 1 ; " " 

623 0 NEXT t 

5240 priiNT *rt 20,0; "Falso Riiarm 


TER - 1 


e ! D a n n o 


u 


1 ; " colpì 
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P« USE ©0: PRINT RT 20 ■ 0 ; TRB 
" TRB 31;" " 

QCl TO 2B0 
M COipi 

IF U al THEN PRINT RT 81,0; " 
BKEP PRUSÈ ©0 

6 ; "li ; s * ( c ) " * ' 

T i ( C , 3) *0 
INT FLASH 1; 


1 RT 21,0 


©3 

un colpo! 

PRINT RI” 20 

S§iÌ 8 :Z I:F u=a b THEN 
INK 7j PAPER 0; BRIGHI 
;s é« c) ; " e" perduto!" 

6330 LÉT U«U+1: PAUSE 100 
©Sì© IF U »2 THEN NEXT t 
§350 PRINT BRIGHI 1;RT % <C,2),»C 
C,11; INK 0; PRPER B ; " F " 

5360 LEI S (C, 1) »-1 
gìg7gi FQR a*l TP 0 STEP -0.1 


BÈEP 

NEXT 


oj80 
5390 

54-00 FOR 
20: NEXT 
64.10 GO 
§500 REM a 
■anse 

" 110^PRINT 


a a * 6 -10 
=1 TO 20: 


BEEP 0.002©., 


» 250 

o t t o mari n o nelle vici ri 


_.Q : 

ÌJKf 


©520 
©5 30 


INK 
PAUSE 
PRINT 


RT 31 

7 ; " Sv 

100 

RT 2 1 ,, 
i l a. u b ! 


0; FLASH 

véglia! ’ ’ 


0; st (c 1 



© 


INK 


dividuato 

- p flU5 | 

GO TO 2 
GO TO 9999 
7000 REM disp l a y 
-.0 BORDER 4: PRPER 

S T 0• CLS 

FOR T*0 TO 19: PRINT 
•]_ ; '< prFFFFFFFFFFFFFFFFFFF " : 
0 graphic ' f- 
7030 NEXT i 

70Ì0 PLOT 0,15: DRAU 160,0 
0,160 

70 5 0 REM min e 
7060 lei rn sFN r (10) +10 
7070 FOR i «1 TO ITi: 

91 : l.ET rny «fn r c 19) 

,mx) >64. THEN PRINT 
7075 NEXT i 
7000 REM navi 
70§0 FOR a a 1 TO © : 

2) ,s (a ,:l.i ; OUER 1 ; 

ER 7; INK a - 1d * (a i 
7100 PRINT RT 0,S1; 

SEARCH"; FLASH 
Z IONE " RT 2,21 


l; BRI 

ha in 


B 


BRIGHI 
REM 2 


DRAU 


LET rnx aFN r ( 1 
: IF ATT R (ftiM 

RT rn y , rn x ; 1 ' E " 


PR INI RT Sta, 
BRIGHI 1; PAR 
NEXT a 

FLASH 1;"SUB 
0 RT 1,2 1"CONO I 
PRPER 4- : "UERDE" 


7110 REM periscopio 
71§0 CIRCLE 206,102,40 

0 FOR p«40 TO 0 STEP -1 
0 PLOT 206-P.102: ORRLJ p *£ 


f 1 

tì 

7150 NEXT p 
7 160 FOR i a 0 


0 


TO 9: PRINT OUER 1 
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HI 4 + i 
EXT i 
7170 

+ + + + + 

—f <1 <St <-h 


S© •• + •• : LET i * i + C i S3) 

PR1WT OUER 1;RT 8,21; 1 


N 


OPTI IPM 

@000 REM istruzioni 
@010 BORDER 1: PAPER © : INK 1: B 

R IS HT 1 ■ (“■ l_ js, 

80S0 DIM **"(6,16) : DIM ft (6,3) : D 

IM i SS ( X ) : LET U =0 : LET i « 1 : LET 
d|*"BCCCAfl" : REM -grafici b,c,c,c 
, a , a 


T O ! 

:wk 


BEEP .1,-a 
INUER5E T 


POR a a1 
RI NT flf 1,®; 

IJB SEPRCH" : 
i : NE XT a 
@04-0 INPUT BRIGHT l; "Uuoi 
e A. e istruzioni (y/n ) ? " i 


a; 

.25,1 


P 

S 


LET isi- 
«qger 


cs . 
@0 


a 


«E. -h 

"P® i 
R i s P 


0 IP i SS < > “ u “ THEN CSD TO @210 
0 POR a = 1 tO ©: READ P*: READ 

£ 

70 PRINT AT 3,0 P * - a * 

©0 D IM b«(LEN p«) : DIM t|(LEN 

®0 INPUT "Premi " FLASH i; "EN 

TER".; FLASH 0 ; " per continuare." 

; L INE p « 

@100 PRINT AT 3,0.1 b*- " ' t*: NEXT 

©110 IP p*«"ri" THEN QO TO ©210 
8130 IP P * < >"y" THEN INPUT “ 
i i. n o m e a t i. a tua fiotta •? 
ondi (y/ri) " ; p * : CSO TO © 110 
@ 13 0 REM ribattezza te ri a v i 
614-0 POKE 33658,8: RESTORE 9300: 

BORDER 4-: PAPER 5: BRIOHT 0: GL 
S 

@1©0 POR a«1 TO 6: READ c* 

@160 PRINT AT 0,0;"Come vuoi chi 
amare" •’ c*; " ": INPUT ri 

Ss 

8170 IF LEN n $ > 15 OR n s& » " " THEN 
INPUT "No n puoi, ripro v a " ; ri « : G 
G TO ©170 
è 100 LET s*(a)*ri* 

©190 PRINT PAPER 8-a; INK 3-1;AT 
a + 5,0 ; n Ss ; " " ; d * ( a ) : NE XT a 

©S00 PtiKE 23658,0 : DO TO ©230 
3210 REM nome dette navi 
3220 RESTORE 9310: POR a*l TO ©: 

READ C SS : LET «C|: NEXT a 

©230 POR i*l TO 6: READ d: LET s 
C i , 1 :t * i - 1 : LET S ( i , 2 ) =20 : LET S £ 
i,3)=d: NEXT i 

024-0 LET S X = PN r (20) -1: LET »U=F 
N r (20) -1: LET »d*FN r (10) 

8250 LET pc-FN b() 

TURN 
9000 REM 
9010 REM 
9020 POR 
9030 POR 


LET ri b = 0 : RE 

È > a t a 

definizione grafie» 

C «= 1 TO 14: READ C* 
b s=0 TO 7: READ bt: POKE 
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il 


!2g 

>60 DRTR "*",0,8,6,18, 


0 
60 


REM P « t t U 

DRTR . 


I i 4 

0070 


126,0 : 


" b “ 

REM 


__ _ , __ .. 26,127,12 

1*16,59,166,255,2 
c r u i s e r da batta© 


DRTR 
0 : REM 

“ ->rTr 

J iàfà 

,20,0: REM 
100 DRTR 

±iKws-»*»*; 


"h *' , © 



" C ** , 0,6 , © , 204- , 92,255,2 
franata 

"d " j 137,74. , 4.4. , 31,243 , B 
REM gap losione 

,0,40,4-6,120,30,116 


m i n t 
f " , ai 



•• i " , 0 

no . i 


12 : 

.60 
i £ 1 0 

9170 DRT 

Ì*Ié‘*!ì= 


DRTR 
Ertr 

DPV?§ "j ",0 
dado n o.a 
RTR " (c. " 

EH .dado 

R 


ig,126,12©,12©,12 
iEM rat® 

0,1,1,7,1 , 1,0 : R 


0,0,0,224,0,0,0 
0,0,24,24,0,0,0 
96,96,0,0,6,6,0 


n o 


3,0,24,24,0,192, 

■R " 1 " , 0 , Ì02 ,102 ,0,0 ,102 , 

! M dado n o « 4 

I "ffl",195,196,0,84,84,0, 
REM dado no.s 
i|TR "ri" , 102,102,0,102,102, 

_ ,- ,,.02: REM dado ri O.è 

9Ì90 6rtr "Comandi una fiotta di 
navi con 1 incrociatore, 2 uni 

ta patroi 3 fregate." 

9200 DRTR "Devi cacciare e dia. tr 
u g g a r e il sottomarino nemico ri a 
acoatosi nei dintorni." 

9210 DRT« "I 1 - tuo incrociatore e 
' pr ovvia tedi un sonar che si rn e 
11 e a suonare non appena si 

trova nelle vicinanze dei s 

§ii8 m g64-a° ‘‘ogni unita" può" por t 
art un numero i imi tato di bo 


nribt e se 
diate ,i 
ornare al 


queste sono state lan 
l'imbarcazione deve t 
porto a cari care,Le b 
ombe sono: 4 per 1 "incrociatore , 
3 per ogni fregata e 2 per le un 
ita' di pattuglia." 

923© D RTR "il sottomarini può' a 

ilurare ogni nave che sì trov 

i nel raggio di B unita' e 

gli sia in linea orizzonta unente 
o _ _ vertici intente . " 

9240 D RT R "Il sub può' anche m u o 
versi di unpaaao per volta e por 
tarai fino a profondità' 10 , Se rn 
uovi una delle navi sulla v e r t 
i c aie del sub, suona t'allarma 
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I 


C *■ i 
1 u 
r t i 


eae® drtr 

ig* 

t_ 

ogni v o i.. t. a 
so negativo 
n ti usa Le 
, * , a w oppure 

re Ca bomba ' 1 
9270 DRTR "Se 
r a nave. La 

da mentre se 

a Picco." 

©260 DRTR " " 

andate sono 
portabandiera) 
regata 1 ) 
a t a 2 ) 

(fregata 3 ) 
atro C 
r o L S2 ) 

9290 

. 

naitri) 

, "Fregata 


IL numero 
s tabi Li to 
Lancio dei 
IL computer 
se vuoi 

batti ' a. i’ì i t. r-* , 

direzioni cardinali 
d ' per Lanci 


ile 
di v o 
dadi 
t i 


mosse 

l t,a in 

chiede 


i muovere.In ca 
' EWTCR- , a 11 r i me 


contro un'alt 
Piccola a f fon 
una mina coli 


n a 


vi da 
iwy 


ì ) 


Le 
-HM 
-HM 

-RW2S O , 
-RWZS Ermt 
-hm| ©ritr 

-U5S TITRN 


ìS 


c o m 

.LE C 

ELD ( f 
( f rag 
!RBURY 
jN IR (P 
:c cp a t 


I DRTR "Pre ferisci 
e alla (Lotta? ©a 
i dRTr "Incrociato 


i 


Fregata 1" 
3" , R Patrol 




dare tu 
tu c y / n ) 
(po r tajba 
. regata 2 n 
I" ,"Pa t rol 


DRTR 
'FIELD 
iRBURY " 
ITRNIC 


"HMS 
’ . " RW2: 
, "HMS ( 


INUINCIBLE " , "HM? 
. OTRGO" , "Rf- 


iRITRNN 


J.DLC , nno 



STOP 


IGHT 


PRPER 
iE ® : 


7 : 
CLS 
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HAVGKAH 


Raymond Blake ha qui' migliorato la versione del piu' noto 
hangman game : il gioco del boia. 

Alla richiesta di inserire una parola,dovete battere un 
vocabolo composto da tante lettere quante sono le lineette. 
Il vocabolo dovrà’ essere scelto tra quelli riportati negli 
statement di DATA alla fine del listing,ma il tutto risulta 
piu' interessante se il solutore non li consulta. 

Se il ninnerò delle parole entro il quale scegliere vi sembra 
basso,aumentatelo cambiando il 30 presente alla linea 70 e 
aggiungendo i vocaboli nei DATA,allo stesso modo di quelli 
riportati alle linee 1500-1520. 

Prima di partire ricordatevi di attivare il CAPS LOCK come 
suggerito in linea 20,per far riconoscere i vocaboli al 
computer. 


se REM PRIMR 
CflPS LOCK 

IT P«0: RgNgOMIZE 



R 7 : INK 
" SPECTRUM 


0 : C 

BOIA 


_ DI GIOCARE URI I 

N OR- ' - - 

SS 

30 B0RD 
LS : REST 
4.0 PRIN 
•' ; INK 2; RT 
60 IP F=0 
iuto! Questi 
RT 

paro Le. " 

SE IP P»1 THEN PRINT RT 3,0;"G 
h no, vogliono i rn p i c c a r rii i ! ‘ 1 •' - r ' a m 
icoi Riutnihj . " 

©0 LET U = 0 : LET Ul«"" ; LET 0=0 
POR 1 = 1 TO INT (RND*30 + l.i : 
RÉ; NEXT I 

I »-£0 TO 30; BEEP . 0ffl , I 


T 0.7 

Ì. 7 • " 

THEf'J PRINT RT 3,0; "R 

pazzi mi impiccano"; 
non indovini le loro 

THEN PRINT 


7 

RER 


75 POR 
NEXT f 
©0 LET 


RI 


■I LaLEN 
•" < TP L) 

PRINT RT 13,3.; 
100 PRINT RT e,0; 
la parola" 
ìaS INPUT C»; IF L 
LEN CIOL THEN “ 

130 IP C|<"fl" 

TO 120 

14.0 PRINT RT 8,0 


LET - 

INK a ; ©* 

INK 1"©a t t. i 

tS n i^4 <>1 rnd 

THEN QO 


160 IP 

m ìp 

17® OO 


LEN 0**1 THEN OO TO 160 
CleRI THEN LET B8«C| 
SÌ<>R* THEN LET U «L 

io a00 
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,*S?.bS T T8fi8 : LE¥%ì7i»IS. L -' 


XP R 


19® 
_ B 
2 0 
U ' 



ir ciorkz) 

WKXT I 



é;ì>’sì: 


si 

>h* 

24. " 

gr 

§ 

w o n ci 
i ci«n tt 

«2® roe 

EP .10 





Ì2ó?i: 

0 “* 


gì-Élll 

5 M 


LBT U ■ U + X 

X-10 TO 30 
8 bl« L i « t « ! 11 


pi, 4» j U É 

8°t$ ó b88“ 


3 , ®.i INK 3 
riuici io ' ■' 


t, 


Ou Ch I 

a * r 


TQ 


Spè^PPàlì^T . «T 3,® 


8:-88 ?5 C § 


NK 

h t 



* Unti . Ri cordèrril 

v 8a^ n fS 1 o r* 3*-BS^Yd^ia : beep 

: NEXT I 

660 PRINT RT 10,2; X NK 1 
r q i! #r «i "; RT 12,3;R 

- - jjj, 0 

I ; Q 

«10 

J««8ia X t0 2 14» . 

. fO^-32l01 W ?g T S^: R 

RRU 10,10: NEXT J 
*30 POR iJh&I ““ “ " 

DftRU 10,-10: 

0 4.0 POR J*I1 
J: DRRU *4B , 0 
è 0 0 POR g« 2 


■ 1 : BE 

660 

3; H CSC* 

''"ti 


. 02,1 

L* P « 


180 

•J 


0 


06 


>RflW 
& P L O 
IN 




17 


TO 30 
12: PLOT 

J 

“ ' ’ »LOT 

STÙRN 

i, 



J : 
13 
J , 13 
18 , J : 
SII , 
J , 11 

_ s . .JSTURfsi 

11® : DRRU 0, -20 : R 

*3,7: PLOT 169,6 

*0 : DRRU 4. , 0 , , 6 * -P 


YS*!-*, P 
NEXT J: 
DRRU 


J « 17 0 


«70 


rSVSSn 0 

173 
«N 

■ 17 1 

DRRU »?, -10: NÈXT J: RETURN 

1B§ 1 >9*-Ì5? 9 n£|t 6 ?; 

Né ::K ' R R J Ìu?Ì fì, ‘ •' ^TT RIO UT E 11 , "DERC 


_J® POR 
DRRU 0, 

8S8u -10 

8 SSu p ?§, 

960 POR 


O 172 
NEXT J: 

5S; mi m 

, 4. : nSxT ' 5 : 
iJ «70 TO 72: 

4.: NEXT J: 

« 69 TO 6 2 



7® 

J 

J 

J 

O 

PLf 

‘■1PI 

>l : 







GIOCHI SPAZIALI 


STELLAR EVADE 

Programma corto ma valido,messo a punto da Graham Charlton, 
che,nonostante la sua semplicità',non mancherà' certo di 
entusiasmarvi. 

Usate i tasti ’z' e ’m' per muovervi a sinistra e a destra 
onde evitare gli asterischi (rappresentanti le stelle) che 
vi vengono incontro dal lato basso dello schermo. 


0 


IO BORDER Si 

««10 



PAPER »: 
LET b * 115 


CL8 

LET 


C affi 


0 


. .E £3693 
LET t„ * t„ + l 
PRIWT AT 81, 
FOR Z a 1 TO ffi 
INK 7: PRINT 


3 1 


«T c RND*3X " * 


©0 WEXT Z 

90 LET b*b + C INKEY*a"rn 
0 3 - £INKEY <■"Z " AND b>13 


AND b < 3 


100 IF 9CREEN* 
EEP ffi,6: PRINT 1 
FOR Xal TO 300: 
110 PRINT RT a 
1S0 OO TO 30 


b 3 


( « » 
b.; "© 


«"#" THEN 
punti " t. 
X : RUM 


B 
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STELLAR PROBE 


E* questo un game affascinante in cui,ancora una volta, vi 
trovate a pattugliare una parte di galassia.Coae già* 
immaginate,vi sono degli alieni nella parte bassa della 
galassia ed e 1 compito vostro scovarli e mandarli al 
diavolo. 

11 programma vi presenta la mappa aggiornata del settore 
galattico in cui operate con le sue importanti 
caratteristiche! cercate di impararla in fretta prima di 
iniziare il gioco.Potete muovere,scrutare o sparare in 
qualsiasi momento.I vostri ricognitori possono operare in 
due modi diversi,quello a raggio ridotto ispeziona gli otto 
quadretti circostanti e consuma poca energia,quello invece a 
vasto raggio d'azione ispeziona due quadretti in una singola 
direzione e consuma molta piu* energìa.11 game termina se 
atterrate sopra una delle navi aliene le quali non possono 
muoversi per la durata dell’intero gioco,Avete riserve 
limitate di energìa e prima che queste finiscano,dovete 
cercare e uccidere quanti piu* alieni potete,Detti alieni, 
dì cui il programma sì inventa ogni volta i nomi,possono 
solamente sparare dopo che voi avete azionato il laser ed in 
questo caso scoprono la loro posizione che e* prossima alla 
vostra.Il danno arrecatovi dagli alieni se questi vi 
sparano,si verìfica in termini di energia sottratta alla 
vostra scorta, 

Il game,convertito da Tim Rogers da un originale gioco delle 
mine,termina solo quando atterrate su di una astronave 
nemica oppure quando rimanete senza energia. 



BOgDgR e 

PRPKR 0 
CL9 

SO SUB 
SS SUB 

a Q r o ? 

- : m 9 ( ' 

S * C 10 
e »i 

ET 9 (FN 
IxT a 

VI « < u ,i P ) mSt 
Et * iu,p ) m£ 
et rn *FN « (8) 

T r ri i * F M « < e ) 


RRMDOM XZB 



SO 3 UB 1000 


,1«) 

j Sì® 5 
T O S S 
a ( x j 


F N (, X ) ) m 
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a. 13© 
114© 



L.Et Z l»FN 
TUR N 


lisa „ 
1S30 
164.0 
2006 
a® 10 
1) ) +y 
2016 
2020 
£040 
2100 
ali® 
2120 
a ics 
su 

SÌS, 

2170 

a is0 
g£9g 

iS $8 
2216 
2220 
2225 
2230 
§23© 
a a 4 0 

gggg 

11?! 

2260 

**90 

2300 

*310 

8330 
2340 
8360 
236® 
2490 
3010 
3030 
3030 
3050 
3060 
3 ® a 0 
5000 
3 100 
3110 

I ìli 

3 16® 

3 16 0 
3170 
O 319 
3180 
5 190 
319© 


•a * c ) 
a (£0) 
b i. -1 a 


JRN 

b ! »FN 
P . 1 , b i. 

--— P M 1 

RETURN 

DEF FN a(X)«INT £RND#X)+1 
DE F FN |É()*xi(fn, TO ttrn 
i irnL fu t (rnl,2) ) 

L ET X « 1® 

LÈI U «6 : LET P «6 
LEI al»" RBC" 

Diri CÌ(6;9) 

POR -assi TO 6 
R E R D C « ( a il 
N|XT a 
T « t «0 

.? IM b(©): DIM C < © ) 

POR a ss 1 TO © 

RERD b (a :i : RERD C ( « ) 

NEXT a 

LET e s= 100®+2000 *RND 
DIM x$(10;6) 


t (a , 1) «LEM 
t i: a j 2 ) sa l E N 


DIM y * ( 10 6) 

DIM t (3,2) 

POR assi TO 6 
RERD pi: LET 
LET XI (I) noi 
RERD Di: LET 
LET y # ( a ) »oi 
NEXT a 
DIM *«( IBill) 

POR a ssi lo 9 
LET r n s»p n a (6) 
let rn lsaPN a C6) 

LET » i r. a ) • PN aiti 
NEXT a 

POR assi TO 3 
POR b ss® TO '? 

RERD C 

POKE USR CMRÌ ( 143 +a ') + b , C 
NEXT b: NEXT a 
RETURN 
CLS 

PRINT RT 0i© 

OD SUB 160® 

PRINT "MAPPA 
GO SUB 1600 
PRINT "ESITO 
GO SUB 1600 
POR assi TO sa 
PRINT 
NEXT a 
GO SUB 1600 
PRINT RT 3,0; 
por a ss i r o i ® 

IP a<10 THEN PRINT 


o i 

o i 


"STELLR 


1234667890" 

A .! : GO T 


PRINT "0"; 

POR b sa 1 TO 10 
LET bi«ai ( » (a 


b > + i) 
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0 PRIWT INVERSE li b * 

od s 



IF b « <- 
MEXT b 
IP a •; 1 0 


THEN 
THEN PRINT 


SUB 1600 
a : 130 TO 


" 0 ' 


pI^NT*" 1234567090" 
PRINT RT 6,14.;; IN K 
FLASH 1; "0«p «Entrgi 


2; PAPE 
a '• I NT 


350§ 
0560 


PRINT RT 6,14-.; 

POR a=l TO t/200 
PRINT INK 6.; "IT.; 

NEXT a 
GO SUB 1800 

IF « •< 1 THEN OO TO 4000 
IF «t>0 THEN PRINT RT 8,14; 
aliane"; RT 9 , l <4 ; '‘distrutte 
-gjj& 1^00 


14- 
11 , 14- 


06 

3600 
"navi 

"jet: 00 Si. 

OB&O PRINT 

zzata" 

3600 PRINT RT _ _ . 

SÉI^S-RINT RT 12,14 

3620 Od SUB 1500 

3630 PRINT RT 13,14;"ntL 

T C U # P / 10 + . 5 i ) .1 RT 14,14..; 

» I 

3640 PRINT RT 16,0; 

3645 GO SUB 1500 
3650 GO TO 4600 
4010 53 SUB ©000 
4020 PRINT FLRSH 1;"Dep. 
dei tutto secchi" 


"nave io cali 
"nel sub-fl.ua 
FLRSH li "<" 


" S * (IN 
"settore 


energia 


PRINT 


UCCISO 


4030 

ìi n ià' PRINT , , C « CFN 
rimanere" , "an coca 
4120 IF INKBYdO"" 

|?30 

4140 IF INKEY $ < > " ri 
"N" THEN RUN 
4160 PRINT ,,cl!FN 
sempre" 

■-PRINT " il meglio 

LET r n «FM I (8) 

LEI rnlaFN a C6) 


a t 


a L 


a tsn ; " : uuoì 
capitano 
THEN GO TO 41 

THEN GO TO 413 

" AND INKEY %< > 


a c 6 ; :• 


Se i 


4 170 
4160 . _ 

lill prTnt fn a$c) 

4210 PRINT END 
4500 GO SUB 5000 
4510 PRINT RT 16,0; C* (FN 
I tuoi ordini v" 

4SI© èEEP ,2. RND*50 
4520 PRINT At„17,lS.;"l Se 


( 5 3 


4 5 30 
4640 
4550 
4 5 e> 0 


i-t a. i i ni j . r , 

GO SUB 1500 
PRINT TRB 12.1 


u t a " 


PR INT 


. o « 
TRB 


2 

12; "3 


r-1 u o v i 
S p a r a 
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4 ©7® 
4@»® 

® * y 
4.50® 
4.698 
THEl 

iisl 

4& 1® 
4 ft Sì ® 
4.696 


455 
4©| 

tfilèfi NKXT # 

4 6 9® P R I NT RT Sii,# 
4.708 RETURN 

PRINT RT 16 i® 
gg|S POR # w1 TO » 
»®a® PRINT " 


$8xnV®R^ B $? , ® ,1 "Pr *rn i 1 ffl o 
VIt*? ««XWKKYÉ 

N 1 So C ?| R: 4Ì«^ 5 °" C0DE i * >B1 


p ttì® iHS 

IP THEN 00 TO 600® 

SO SUB te®®0 + 100®#URL 1 « 
POP la® TO a# 

PR INT " PlT J Si 1 ,, # ,! " " 


0® S0 
@®4® 
SOS® 

6 6 1 ® 
@®;S® 
t o Si 

eoo® 

©04® 
60501 
THE 
© ® © ® 
6 0?® 
6080 
6090 


NEXT # 

PRINT RT 16,®,; 

RETURN 

JPRXN'T TR$ n; m FLRSH 1 

PR XNT C t ( PN ¥ i. © .i .i j " - " 
P P, x NT " c a rri p o L i.i n 9 o a. ) 


XNK 


o c o r 


UET i«aXNKEY* 

© E Fi P ,01,0 

IP CODE lì <49 OR CODE i«>66 
N O O T O 6 0 3 ® 

UET k aURL i« 

L,ET « a® - 1® * k 
1F K «sa THEN GO TO 660® 

PRX NT RT 16 . ® ; " fictrc*. . 


6095 UET f «*® 

6 l ® ® f o r a et - i: u > x :i t o i; u < 1 ® j 

6 110 P 0 R b sa - < P > 1 ;i T O < p < 10 :i 

© 115 ©i EEP «01,0 

6 1 a ® XP g (u+i,p + b :i = i t h e n l et f «. 
1 

6130 NEXT b: NEXT a 

@14 0 IP f » 1 THE N P R I NT Z * ’ n # V # 

m LU vi cininzt . " : OO T o © 16 0 

©16® P Fi X NT ' ' n u L i. a n e i i. « v ì c 1 n a n z 

e .. " 

© 1E 5 OO SU 6 160 0 

©160 m PRINT RT 2 1,0 ; "Ri t» rca ch i u 
6166 BEEP » 0 1 , RMD #60 

©170 XP INKEYI*.f'HEN GO TO ©17 

0 

© 1. '7 5 G Ci SIJ B 1 5 0 0 

© 1 © ® IP X N K E Y ia* " n " O R IN K E Y * « " N " 

THEN GO SUB ©000: GO TO ©01® 

© 19 0 13 O T O 4 © 0 0 

©50 0 PRINT RT 10,0.; c * CPN « (B) 't ; " 
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: Di rtzioni ■? ' 1 
6®1® PRINT "nord 
OVtlt : 4 " 

6816 XF IWKEYIO 


II: 


ffl: » t 

TMEN 


9. 

OO 


Sud : 3 
T 0 6 S 


!0 


.ET i 6»INKEV* 


fir C»* Itffii l«u Uik I _ _ .... 

6fi53ffl SEEP .01,0 
664® IP CODE i ÉU9 
THEN 00 TO 6680 
6BB$ Lfef K, m (UHl. Ì 6 
Sfes® LBT . 

xr ziti THEN 
t i V O fl : O O t O 6 6 9 0 
PRIWt " Pi t 9 « t, i V O 1 
““ SUB 163® 

INKBY Hi < > " " THEN 
T O 6 16 3 
' f L w® 

'filNT "Di PtZ i Oh i ; " 


OR CODE i*>ESfil 



T 1) #8 + 1 
c « (u+b f k :i #a , p + c t k j #r: i 

PRINT FLASH li“ 


OO TO 669® 


fc ìr£, ; l.S 


)« 
?!! 


_ .. . 4® , 84 

DRRUI 8 , 16 
00 SUB 1630 
ÉftlNT RT 16, 
"'LOT 4 3,84 
• RRW lé,® 

._„jg su» i e®® 

TI 18 PRIMI- RT le, 
J3® PLOT 4® ,fi 4 

rìsi 8 o w »uS■' iìS® 

PRINT RT Sì®, 
PLOT 40,84 
DRRLJ -16»® 

gg sub ié ®0 

PRINT RT 16, 
INPUT "Or «eli 
>316 OR 


èli 



16;"3®®" 


0 9 © ' ’ 


i s' 1 1 e 0 


r < © 


iffi 7 ® ' ’ 
-f“ H E 


OO TO 


r 


r « INT £ r >45 ) + 1 
IFL. t L»1 THE N R fiTURf" i 


£ r / 4 6 '> 

’MEN "." 

,ET *3 £ ù , p :i in© 

.ET % ( u , p ) 1*3 


,È j u mu + b £ r ) 
ET p«p + c £ r) 

; f « c u , p ; < > i 


■HEN 00 


r 3 1 0 
ÌNK 
o p r « 


r ai: uà 

“? SS 1 P*5 

??!f 

7 3 6© 
7 3 6 ® 
7 3 7® 
736® 


T O 1 1 1 

M 


P R I NT RT R N D # « 1,0 ; F L R S M l ; 

8 .1 PAPER s ; " 6® i « t t, « r r « t o » 

. ... u ri « 11 x 8.; " n « v « ! ! I I ! i l ! I il 

I ! I I I I I I I I I II I " 

ga© BSEP 1,3 

6 RND>.QB THEN OO TO 7310 
OR «m1 TO RND#B 
LOT IR®,67 

D R R l.-.l 1 Si © - R N D # 8 B 6 , O 7 - P M D #17 6 

NBXT a 
BSEP .3,-83 
OO T O 738® 
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S005 L. ET fi. «1 

©010 PRINT AT 14-, 1S; XNK 6: PRPE 
P 3; FLASH 1;"ALLARME ROSSO" 

8030 QQ SUB ISSO: GO SUB 1500 
©030 PRINT RT 15,0; C$ (FN a tB) 3 ; " 
- Direzione di sparo:" 

8040 GO SUB 7015 
S 04 © LET a a e-100 

©050 IF g ( u + b (N ,p+c(rn < > 1 THE M 
GO TO ©300 
©070 BEEP 1,30 
©080 GO SUB 5000 

8090 PRINT C*(FN a(S));" - Hai c 

o Ipi to il " ; zi 

8095 LET S 1 : U + b ( r ) , p + c (N 3 «4 
L.ET' g (u+b (r) , 

LET a t =sa t +1 
PRINT , . c» (FN 
'al la r rn e rosso 7 1 ’ 

IF INKEY*<>"" THEN GO 


609 
© 100 
© 13 0 
ri g o 
e 130 
40 

6 135 
©140 
©300 
S3 10 
©330 
© 3 3 0 
8340 
8350 
©360 
©370 
©380 
8390 
8400 
84 10 
©430 
" ; Z * 
1 " 

Ò430 
8460 
©460 
©4 70 
©480 
©700 
zie 


p + c t r) 3 =4 
a (B) 3 ; " •- Spft 

TO si 
THEN GO TO ©135 


IF INKEY* =*"" 

G O no 1110 

GO SUB 5000 

PRINT C * (FN a (53 3 ; 

L IST a (U + b ( r ) , p + C ( r 3 3 ss 3 

P RINT "Abbiamo sbagliato " 

FOR a s*0 TO 30 

BEEP . 1 , a 

NEXT a 

BEEP 1,35 

FOP assi TO 50 

BORDER RND#7 

NEXT a 

BORDER 0 

PRINT , , C* (FN 3 ( 5 3 3 ;": Gli 
" s o n o ".."tornati indietro 


U © 150 0 

RND > ,6 THEN GO TO ©700 
TI HANNO COLPITO Ì! 


GQ 

PRINT " 1 ; 

LET asse- 100 *RnO 
GO TO ©110 
PRINT CÌ (FN a (5 3 3 
a 1 la steli,®-" 

"Gli " z * ; " 


©710 PRINT 
mancato!" 

SSS8 88TS°-8 ? t 8ocK-,-spotti 

L„oo Ku " , 11 che c n.ou t " , " z y 1 u 11 


Ma g r a 
h a n n o 


1,1,0,1,1, 1,1,0, 


t. . L„ o OhU" c h e C R 1 
9030 DATA -1,0, 

1,-1,0.-1. -1.-1 

9040 DATA "G Lo b" , "U Ilari" , " F r a X " , 
"Uoid" , "Mesh " , "n i k " . n R o rn " , "u lan 
" ,"Grup" , " lish" , " K r e L 1 " ,"on" , "o u 
e s" . " t a r " ,"Co eh","rane" 

9050 DATA 255,165,195,153,163,19 

fj-T ■*] 0 BST, ( g jSEJ C«J 

9Ó©0 ~ DATA 355,189,319,355,355,31 

i| 7 [ 0 L,! g 0 j—| 

9070~DATA 34©,153,153,355,47,57, 
349,22j 
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LUIAR STORM 


Stormo lunare di David Perry ricorre,per generare le 
neteore e le astronavi che si muovono sullo schermo, a 
sofisticate manipola 2 ioni di stringhe. 

La superficie del pianeta sul quale dovrete atterrare si 
trova nella parte bassa dello schermo ed e’ dotata di tre 
basi.E* appunto sopra una di queste tre basi che voi dovete 
discendere evitando i vari ostacoli che vi si parano 
innanzi.Per agevolarvi nel compito,esiste il pulsante di 
thrust da azionare nel caso in cui l’andatura diventi troppo 
pericolosa. 

Il game e’ ricco di sound ,di colore e di caratteri 
ridefiniti. 


LUWAR 

CTnDM 
O 1 I UiaI I 

DXFFXCOLTfl' t 1 ~ 3 ) 

esscsassaceassssasiBse 

6 - 3 X N X ST R R 8 - D E ST R R 
0 - ST R U L O 

SCEND X SULLE PIATTAP r QRME 


4. 

e 


© 


REM 
REM 
REM 
REM 

© □ R D E R 


r**. i 1 »" f-i ►*". .... 

i 


C O P '■ 

Dfi'J X 



i 9 h t 
PERR' 


0 
■ 0 


PARER 0 


IN K 


C 


.ET BO « X00 


+ 1 


'9 LET SC 

G O T O 4.8 

10 CLS RE©TORE GO 

11 LET X «0 : LET UsINT 


. ET 


SUB 29 
i: R M D * 3 1.1 
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19 PRINT fl'T X iWJ " PRIWT RT 

3 , © i . IMK 6 ; a H .1 RT V , 0 i » « i RT U«0j 


3,01 IMK 6 j * NI i RT ? 3 

Mt $ ; hT la,®; a £ ; RT 1 » , 0 ; « Hi 

a 1 S.‘ = '^ H T-, pl V g< E?I ; 

'•ìÌ*¥P’t(W'N 4H'? H e A ? aS-$ £ 


14 , 

i© li» ac r e (£n 

OO TO 36 : PRI' 

16 .. 

17 
16 



X >16 TMBN OO 
"' li X , w ) ■< > " 
RT 


LET 


>0i,x # a 

JT RT X y f " 

X«+,S: ir 


y 


; RT « 

'■? 8 7 9 

11 t h e m 


THE N 


THEN LJBT X «X-.8 LET » e ■* C - 1 
19 Let Y *Y + li IMKEY « « " ® " J - «INKBY 

JÉj jjy( ' 1 jfi*J 1 * ‘| 

ad ir y <0 thbw let y «3 1 

Sì IF y > 31 THEN LET u a£ 

»£ IF X > £ © THEN ciò TO 79 

33 ir scrben* «x ,, y ;i <>" t 
OD TO 30 

0 4 I M‘ “f ‘ ; «t 1"“; m «L 

a 3 P P X N T " R T “ X 7 y IN K 7 ,i B P X O H T 

B ; " c ' ' 

9 e let ««*«««& to 

a 7 LET bimbi «31) 4 b Ni < TO 30 ) 

sa a a o t p 1 a 

.““J L*“i iTi V I “T M I**'J ,J Y- 



r U R B H 1 

. 3 


rtfpid 


PLRBJ 
1" 


1 M K fi" 
r L R S H 0 ; 


LHÌffT 

F L R » H 0 _ _____ 

,i FLASH ®; ZFfK 77 r 
BH 1,: ">" ,i PLflSH 0,1 

••ih K ut i“ a Trjpj r-. i “f- o nh . 


lìrbh" 1 j ">"j '""ink 7 ; V 


IMK 3PLR 


Pi q r iN 

PÒKE USR 


POR 

C % + « , 


31 POR n*l TO 3 
a * 3 TO 7 : R ERO b: 
b: MEXT a: NE XT ri 

3® DRTR " C " , 94 , 36 90 ,, 186 ffl 19 , 32 

X 9 X B fi 1 19 ® 

3 3 DRT R 1 ‘ a " 3 6 0 , 1 » 6 ,1 '7 1,913,1 
96,60*3 

34. DRTR " b " ,, 19® , 1©9 ,, 90 , l&B ,, 186 


90 , 
3 Isf* 
3 6 


,ffl9,19® 
RETURN 
r o r ri shi ?' 


TO 0 STEP 


# 3 


„ . . 1 
3 7 PRINT RT x . u ,i IMK n ,i " 0 " 

3 6 BfiiE P .Èlti* 3 : 0 E E P .01,6 0 « n 


39 MEXT n 

4.0 I.ET I»7 

41 PRINT RT 
I . " 1 3 r: 

4 9 ‘ pRX NT IMK 


S,6i IMK ®,i "P IJ N 

_ I; BRIOHT 6 j RT 0 

1,1 "P R E M I U N T R » + O I 

.ET 1 * 1-1 ! ir I <0 THEN LET 


4 3 
I * '? 

4 4 
4 0 

iohT 


ir IMKSY*».r"MEN OO TO 4 a 

LET SC»0: CLS LET d*0 : BR 
1 : IN K 6 
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COLTR" (:l-3 
6 1 PRIMI* 


nsasiesrssimwseajcssx 


m 

M 


h m n 


NR 

■ 


IN MI ■ 


m 

m 


Mina 

«1 

M 

m 


m u m m 

m 

m 

m 


m m mm 

m 

NRRMNI 

mm i 

R WR N 

NI 


■lÌMiìiii -nifaf 

IN 

M il 


■ 

ni m 

M 

■ 


■ 

m in 

8HB 

«un 


IN 

■ IN 

M 

m 


«R 

« il 

IN 

m ivi 


m 

ni m 

va 

MNI 


m 

UQMNI 

mnMP 

m 


RT X SI .. 

;i 

RT 16 


SS SS SS « SS ' ' 


6 ; 
6 ; 


i: N k 
IN K 


i "DIFFI 

li <•'' issi ,p xs ss; c; 


RI. 


6 a 
6 ■- a 

6 3 
.LO" 


P R IN T R T 1 © , 3 ; X N K 
X N 151" R Pi è - 6 E 3 TRA" 
PRIMI RT la., Il; XMK 


©4. PRIMI RT » 0,3; XMK 
DI SULLE PtRTTR FÓRME " 

6® PRIMI «l; BRIGHI ©, .inr, 
L..UWRR STORM &i DRUXD PERftY 1963' 
66 PRIMI RT 18,6; XMK i;"DIFFI 
COLTRI ' (1-3) 


4. ; ii;; m k 7 

si- i U -IO I 

6 ; " 6 C E N 

IM K 


6 7 LEI 
« £ > " 3 " 

a 

sfi ss X MK EY ste 


XF 

a 

ite < " i 

' ' o 

T H E M G 0 IO 


7 6 




m, jc^ t F 

i®, él X F 

« Ili 

ss ' 1 THEN 


G O 

T O 

7 © 


a $ 

w " 1 " T H1:*; M 

l e 

I* 

a $ ss 1 - 


R 6 

ET d » 1 




s 


1 1 , 


■7 0 X F 

d ss 

1 THEN L 

e: 

T b 

Mi »® 

" B 

B 

R 


R 




' 1 


? 1 X F 

a $ 

ss "SS” THE 

N 

LE 

T 

a Mi se '' 

B 

R B 

ET d*fi 


R 


13 




7' fi X F 

d »jr 

a t i-i k: m l 

E 

T Ir:, 

rii ss; 

13 


R Si 


6 


R 

' ' 


7' 3 IF 

a sfc 

ss " 3 " T H E N 

LE 

”T* 

a $ ss ■ • 

Li 

R B 

B 

R 13 


13 

M 

R 

’ ' • 

E T d ss 3 








■? si X F 

d » 

3 T H E N L 

E 

T b 

Mi » 

R 

Pi 

B R 

B 

B R 


R 




7' E Gì O 

T O 

1 0 






7 6 1.ET 


SS li. - X : x F 


i < 0 

T H E M 

L. ET 


L. 


L 

R 


:t «b 
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77 GO TO 66 

78 STOP 

’79 PRINT RT x , y ; INK 7; BRIGMT 
S " C ' ’ : X F V » 4- THÉEN LET 00*100: 
GO TO S3 

SO XF Y*1S THEN LET BO«1®0: GO 

TO ©3 

©1 XF Y»se THEN LET BO*XS0: GO 

T O S 3 

© I ti G Cj X u 3 0 
S 3 LET 50= 5 C+ BO 
FOR 1*0 TO 7 


©4- 

PRINT 

RT 

1 , 

G R R 

T U L 

R 

Z 

© B 

" BO; 

P R I NT 

• l • • 

H 

RT 

3 , 

©© 

P R X NT 

RT 

5 


FOR 
IW K 


N = 1 


TO 

: O 


N 


I ; ' ‘ c 

O N I !" 

"PUNTI PREMIO: 


SO 


11.; "PUNTI : 

©7 NEX'T X: N EXT N 

@© FOR N 3-S0 TO SO STEP ©: BEE 
P .00© , N: BEEP .001,50-RBS (N J : 
BEEP .00©,N/9: NEXT N 
©9 CLS GO TO 10 
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LE LUS1BGHE DEL LABIRINTO 


In questa sezione vedremo come ottenere varie forme di 
labirinto aiutati da Graham Charlton che e* l’autore della 
maggior parte dei pezzi. 


KÀZE-XAKER 

Partiamo con un programma in grado di tracciare labirinti 
di qualsiasi dimensione come quello che segue: 



Per vedere il programma in azione battete,quando siete 
pronti,un numero compreso tra 2 e 23. 


10 

D IM a $ 

( 9999 ) 

£0 

D Ili b $ 

(9999) 

30 

INPUT 

•s. 

4.0 

LET t » 

'i nt ( a 

4-5 

L ET W a 

i nt •: i 

S0 

P L OT 0 

, 0 

60 

DRflW t 

, 0 

70 

D R R U 0 

.. W 

60 

DRRLJ - 

t . 0 

90 

D R R U 0 

> " W 

100 

LET X a 

!s* 

110 

LET y a 

& 
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13 0 
140 

y :i 

;i i; > 4- 

i»S 

17 © 
1 ffl © 

lf'0 

tu 

a » © 
S 3 ffl 
ImI 4 0 
ffilffiffl 
SJ 6 ffl 
T D fi 
S 7 ffl 
® e ffl 

a ffl ffl 
30 ffl 


LET * «# 1 
PLOT x j W.. 


|F (POÌ NT i:k+#,u 
+ P o l M T i: x , y + % j + P O 
TMEN OO T0 Si ffl ffl 
LET ZmZ-1 
XF* z #»ffl TMEN STOP 
LET XwCÒDE .ft i C Z il 
LET U «.CODE bÌ<Z) 
ÒO TO idi ffl 
Léi'T « « {Z > «CHR | X 
LET b fi (Z > nCHRi W 
LET z«*z+l 


i: x +» , u :i +po int < x 
+ » :i +PÙINT ( :w: ,, y 


Lo Er T 

tp 

LtfT 

IF 


i” « XM+ (RNp#4) 

C h» :» # ( ( f «a ffl il - ( P « 1 il il 

d «• # li ( r » S il -( i” w 3 il il 

P O X NT li x + c .. y + d il T IH E N 


DPfli-J c d 
L K V i 1 ": «■ x + c 

fei 1 T 8 * ì 3 ffl 


116 



XAIGLED KAZES 


fon senpre le aura dei labirinti sono ad angolo retto,può* 
succedere infatti di trovarsi davanti alcune volte delle 
sagene alquanto strane coste quelle che seguono, 




w + a y 

* r» 
ie© 
16© 
17 r 
H 






Input 

tIT 1 


a 

. ■ I NT 
, _ . W * JNT 
PLOT © © 

DriflW t ,, © 
DftflW 0 jW 
DRRU - t ,, 0 
DPRW ©,-w 
1 “T w *» 
w-f 

. . Zìi 
. ÒT x , y 


(866/ft) #* 
( 174. / A J #* 


F tPÒ ÌMT 
A :i + POI NT 


< x + :i ,, y + *. ? + P O XNT 

.j i kr < x « a j y + * :i + p o x mt 

■I) :i <>4, TMBN GÒ TO 0 00 
LET z «Z-1 


IF 


i£ «*© 

ET X «C 


STOP 

« n t,z ) 


U., fc*, I » W W U' IL- 'Di HB >e* 

LCT y«CODE bit zi 
Q O TQ 13® 

LET AH (Z) iCHRl W 
LET b i C Z :< • C HR i y 

LET r Si NT (RNDH) 

LET c «su i: c r < st i - < r 


) :i 


« 

c 
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250 
( r w fi 
260 
to a: 

fi - ?© 

S80 

290 

300 


l_ ET d 
*| 

SS 

s « 

( ( r at 0 ) 

IF PO 

I 

NT 

( X + c , 

0 




DRRU 

C 

.. d 


LET X 

ss 

X + 

c 

L. ET y 

ss 

y + 

d 

GO TO 


13 

0 


+ (f »3) “ (fai) - 
y + d ) THEN GO 



0.0 

DIM 

at (30 

fi 0 

DIM 

b £ (30 

30 

LET 

x =128 

4.0 

LET 

y «86 

50 

LET 

2 * 1 

©0 

INPUT £ 

'7 0 

LET 

t «S «fi 

©0 

LET 

q. « INT 

100 

PLOT 

x .. y 

a 0 0 

F O P 

c = -f. ' 

fi 10 

IF x 

+ C > fi s 

to a 

■30 


a a 0 

IF POINT 

O 3000 



00 ) 


(SOR ( t # t -S *S 3 ) 

TO t STEP t*S 
© OR X+C<0 THEN GO 

(X+ C ,y) « 0 THEN OD 


fi 30 

NEXT C 




fi 50 

FOR C w-s T O £ 

STEP 

t 


fi © 0 

TQ 

fi^0 

IF X + C > fi55 OR 

X+C < 0 

THEN 

GO 

3 10 

FOR d w - q. T O g 
IF y+d >178 OR 

STEP 

q «fi 
THEN 

fi © 0 

y+d <0 

GO 

TO 

300 


fifi0 

IF POINT (X+C 

, y +d ) » 

0 THEN 

G 

o T o 

3000 

300 

NEXT d 




3 10 

NEXT c 




2000 

LET Zsl-l 




2010 

IF Z»0 THEN STOP 
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2020 L ET X a» CO DE a $ C 2 1 
2000 LET y «CODE bl(z) 

§0£0 PS T ® 10 ® 

3000 LET a $ (z) »CHR£ X 
3010 LET bIC 2 1»£mRÌ y 

0 ÌÌ 0 1 lì r SiN-f 1 : r n d * © :i 
304.0 LET css*ursl)+(r S 6) 
(rei) > +1. * ( (rag) - ( r *2) :i 
30S0 LET d «q. * e e r < 2 ) - ( r > 3 :i 
3060 IP X+C >255 OR x+C <0 


2020 

2030 

lill 

Sili 

304.0 


3030 


— ( r ss 0 ) - 

:i 

THBN 30 


3070 IP y+d >175 
TO 3030 

3060 Ir POINT f 
TO 3030 
3020 DRflU e , d 
3100 LET X «X. + C 
3110 LET u*y+d 
3120 GO TO 100 


OR y + d < 0 THEN GO 
+ C , y+d .ì THEN GO 
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VALLS OP SUSPENSE 


In questo programma dovete battere due concorrenti messi a 
disposizione dal computer (contrassegnati entrambi con "0"> 
risolvendo per primi il labirinto.Siete rappresentati dal 
simbolo 'X' e, partendo dall'angolo in alto a sinistra, 
dovete raggiungere quello diametralmente opposto. 
Naturalmente vince chi arriva primo.Per giocare in tempo 
reale.cancellate la linea 3110. 



:i| 

17 

x 

» t o 

r UJ U m " 


ssa 


M ) e 

y - ffi ) 
120 


1. 

160 
1000 
1010 
10ffl0 
1000 
104.0 
1015 0 

^R® 

10 70 
1050 
1090 
1100 
1 1 1 0 

§000 
3010 
2020 
§030 
3000 
3 0 0 5 
3 0 0 6 

agl® 

3 0 1 5 
3 0 1 6 

30»® 

3026 
3 100 

3 1 1 ® 


L. ET C 
ir* c * 

« " OR 

* " n " ti 

L ET Z. 

IF z «i 
LgT « 
LEI y 
© O T Ci 

* 


ti 


■T r 
L. ET c 

L ET d 

IF CÉ 
T O 10 3 
L ET c 
UET C 
L ET X 
LET y 
G O T 0 
F O R i.i.i 
P R I NT 
NEXT 
P R 1 NT 
LET 
LET 
LET 
L ET 
LET 
LET 
LET 
! ET 
P Pi I NT 
LET 


( x , y ) « " " 

x + » , y ) m 11 tt " o P eli x - S 
É«X A y+£N OR Ct ( X 

E N Q Ci T O 10 0 0 
T - 1 

T H E N O O T O » 0 0 © 

C O D E a * < z ) 
fi 0 D E bit z :< 

100 

(Z) *CHRt x 
< z :i a C M R S M 

Z +■ 1 

! NT (RNDH) 

( f a0J -(fa* i :i 
!raS) - ( r* ss 3 ) 

x •+•» # c , y •+• a * d :• a--.r hi e n 


i r. x + c , y+d 
i t x + 3 * c } y 

i x "f" 22 c 
iM + 2 *d 
100 

i » T Ci 2 » 
INK 7 ; c * 


*{f ;i as 


r ii.i 


T O j 


1' 


2 *3 


RT 
1 
1 
1 
1 
1 
1 
0 
0 

R r , . 

ss INKÈV «ti 


y 
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31S0 IF Z * 
3130 LET C 
314.0 LET d 
3160 XF SCI 
EN BEEP . 1 
3170 PRIMI' 
3160 LET X 
3100 LET u 
3S00 PRINT 
3210 IP X* 
360© LET % 
3700 IF S = 
390© PRINT 
4000 IF sm. 


THE M GO TO 3X1© 
a (2 «a " 6 " ) ~ ( Z * « " 7 " ) 

» (Z Ss"8") - (Z la"5" ) 
RBEN* ix+c,utd)s l, tt" TH 
, 0: OQ TO 3600 
RT x , y ; 

5* X + C 

*y + d 

RT x , y ; " * •' 

19 RNd> y«29 THE M STOP 
aS - 1 


4010 


.ET c 


■1 THEN LET Sai 
fl THÌKi q LcT » a© 


4020 LET d 
4030 IF SO 
EN LET s~S 
4050 LET p 
4.06© LET q 
4065 PRINT 
4070 IF pa 
660© LET t 
S700 IF t « 
690© PRINT 
600© IF t= 
6010 LET C 
6030 LET d 
6030 IF SO 
EN LET t«t 
6060 LET u 
6060 LET V 
6066 PRINT 
6070 IF U» 
6060 GO TO 


= C S = 15 “ ( Ss3) 

™ (ì a0) «- f s >2 ) 

REENS (P+C N+d) «"#" TU 
+ 2: GO TO 4-068 
»P+C 
a q + d 

RT p , q." O '■ 

19 RNÉ> q*29 THEN STOP 
« t. - 1 

-1 THEN LET t«3 


■1 THEN LET t «3 
RT u V ; *'11" 

• THEN LET t*© 


a ( t *0) - ( t =3) 
a (tal) ~ C t a 3 ) 

REENÌ (U+CjV+d)■"#" TH 
+a: GO TO 6066 

ss Ij *+• C 
so V •+• d 

RT u ,Vi ” O " 

19 RND va99 THEN STOP 

3100 
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WALL OF SUSPEESE 


La versione che segue,vi inette di fronte un solo avversario 
da battere,ma questo e' tanto intelligente quanto i due di 
prima messi assieme e quindi le vostre possibilità’ di 
vittoria restano inalterate. 



Éi0 

60 LET 


DIM Cf (23.33) 

“M a $ <1000 3 
bi C 1000 3 
x *13 
y *1? 

z «a, ^ 

c smw 3 *" s nn»nnnnnnnnttnnn 
nnnnnnuunnnnnnutt •• 

70 NKXT w 
100 LET c*(X A y)«" 

110 if oMx+a.y) *' a" or c$(x-s, 

3 K •' 8 " OR ciixly+a»*"#" OR c * t X , 
«"tt" THEN G5 TO 1000 
LET Z »Z-1 „ ^ _ 

IF Z *0 THEN SO TO 
«.CODE a i C Z 3 
«CODE bit 23 
100 

( Z 3 SS c M R $ X 
CZ 3 sCHR* y 
*sZ + 1 

«a I NT ( R N D * 4- 3 
sa ( f * 0 3 — C ss 1 3 
sa ( r »S) ~ r. r sa3 3 

( X +ffi * C , y + fi *d 3 «. THEN 

1030 

T ci (x+c ,y+d) *" " 

7' c $ ( x + fi * c y + fi * d 3 * " 

T X ss X •+• fi * C 


ss 

y -fi 3 
120 
130 
14® 

160 
100 0 
1010 
10fi0 
1030 


LET X 

kB'rìé 

LET 


2000 



109 

110 
1110 
9000 
9 010 
9090 


y ss y + s * d 

ro Ì00 

“■* TO 22 


SS ai 


_16 

3010 
30 16 
3020 
3100 
3 110 
3190 
3130 

Sili 

EN BEÉP 


FOR M3 
PRIMT INK 7.1 C* 
NEXT w 

PRINT RT 19,99 

L E T X * 1 

LET p ss 1 

LET y a= 1 

LET q. «al 

LET $*0 

P R I NT RT x , y ; ‘ ' 
LET Z*»INKEY* 
IF Z «ss"" THEN 
LET C ss (2S«"6 

“" T sé RE ÌlÌ 

1,0 


C i.M 


TO 


3 


3170 PRINT RT 

.- I 02 " , 


3 130 
3190 


.ET 

ET 


SS 

B O T O 
x , y " 


G3 O 

- ( z 

- ( 


T O 

$ 

$ 


•: x + c , y +■ d : 
3600 


3 110 

•'-? i i ’i 

i* > 

S ‘ 1 ) 

sa " tt 1 ‘ 


TH 


X ss X + C 

y ss m +d 
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a®®» 

ca ;B 1 1 

asj r 

3'à„ 

400 © 

4ttl“ 
4 0ffi 

4.03 

e w „ 

4tt«0 


PRINT RT x,g;"#" 
ir, ■ 19 PNfr y »39 THBN 

F 7 * ■ ”1 ~“?*HEN L£T » mi» 
RI NT RT P,q.; n H" 
r » *4 THBN LIEt » «tt 


JT c m ( 
T ( 

P ritti /«I K4' 


1 * 1 ) -(*««33 


,05 


i; » « ffi ;■ 


L6T * 2*?S ! GQ ''f-é'* '' 



( * *> 

SBN 

iT *.«,»+ ì : 

LEI P-P+C 

PrÌn'? S 'ST d p , q,ì "9" 
IP j&* 1Q RNÒ q«*ffi'» * 


,1 IH 


00 


o 3:L®tt 


THE N 


STO P 

TU 

STOP 
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DUAL LEVEL 3D XAZE 


Questo programma prevede due livelli uno superiore ed uno 
inferiore In base al numero dei passaggi. 

Il display mostra le viste da sopra e da sotto dei 
collegamenti tra i tunnels.Muovetevi con i tasti cursore 5-8 
ed usate il 9 per il plano superiore e il 4 per 
ridiscendere.Il labirinto e’ invisibile,ma può’ essere reso 
visibile semplicemente cancellando la linea 2000 e voi 
dovete partire dall'angolo in alto a sinistra della prima 
meta’ del labirinto per raggiungere l'angolo in alto a 
destra della seconda meta’, 
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tt tt tt tt 
tt tt il tt Sititi 

TT ^ TT T'F TT TT 

ì 3 tt tt U 8 3 

ttttttttt: tttttt 
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D XM 

BiO 


» 

Et 


d 

t 

tIT 

F O P 
F OR 
LET dii 
NEXT b 
NE XT tt 
LET ri % 


d $ ( 

HI 

X M È 
y «ffl 
X *& 

w « 1 

a saffi 

b « Sii 


? ,, Si! 3 , 

1000 ) 
100 0 3 

10003 

1 


T O 
T C 


1 1 3 


6 


( a ,, b 3 « " tt tt tt: tt tt tt tt tt tt 


d * 
tt " 




(imi + ffi j y 
OR di 


a; 'i 
a: 
< x 


11 


i i 


m 

3 « " tt 

i w 4* ffi 


p R 
X 3 su* 


li 


f X ~ 
O R 
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da (x , y -- 9 

" tt " OR d® 

o 1000 


) «"n ' 1 or d a(x ,y,z + 2) = 
, y Z ~9 :• » “ tt " THÈN OO T 


150 

190 

900 


1000 

1010 

1090 

1030 

10Ì0 

10S0 
10 6 0 
1070 
.1000 


L. ET w sa 
IF I..J sa0 
LEI X SS 
L ET y a» 
LET Z «s 

55 to 

l et a a 

LET b$ 
LET C a 
L ET W s= 
LET far 
LET C ss 
LET d as 
LET fi ss 

XF d a C 


11 THEN OD T 
1090 LET da 
1100 LET da 


tu 1 

THEN GO TO S000 
CODE «ìiìwìi 
CODE b £ (W) 

CODE d ( w ) 

14.0 

r w ) ssCHR a x 

c w ? =a c h r a y 

« W il ssCHR $ 2 

W + 1 

X NT li P N D * 6 j 
r. r ss 0 :i ~ ( r ss l ) 

t r ss a ) — ( r se 3 ) 

( r «a 4 - ii ~ ( r ss s ii 

x + 9 * c , y + 9 * d z + 9 * fi ii ss " 

O 1040 

( x + c . y + d , z + « ii ss " 

c x + a * e , y + a * d , z + a * a ) as ■ • 


1110 
1190 
1130 
1140 
jjS 0 0 0 

9010 
9090 
90 3 0 
9040 
90 E 0 
9060 
9 100 
9 110 
9 19 0 
3000 
3010 
3090 
3 03 0 
3040 
3050 

li (Zìa 

3 055 
305 0 
EN GO 
3 070 
3 0 3 0 
3 09 0 
3100 


LE7' X s*x. + 9 * C 

LET y ssy + 9 # d 

LET Z ssz + 9 ■* fi 

GO TO 140 

BORDER 0: INK 


P Pi P Gii P 


FOR b ss£i TO 93 
PRXNT d a ii 3 , b ii ; 

P R X NT d $ ( 4 , b ii i 

PRXNT d £ (5, b, TO 10ii 

NEXT b 

INK 7 

LET X ss 1 

LET y as S 

PRXNT RT 19,30;"X" 

PRXNT' FLASH 1J RT X , M. ; " * " 

XF x ss: 19 AND yas30 THÉN STOP 
LET Z a w XNKEY $ 

XF za*"" THEN GO TO 3090 

L.ET C = (Z$s"6") » (ZS*"7") 

LET d ss r z a * " © " ii - < z $ » " 5 " '» + 11* 

" • ■ ì — ( 2 ; é sa 11 4 ‘ 1 'l ‘I 

IF y+d' c'0 THEN' GO TO 3090 

XF SCREEN a li X + c. , y +d ii sa " ** " TH 
TO 309 0 
PRXNT RT x , y 

L ET X sa X + C 

LET y=ay+d 
GO TO 3000 


•i 4 , b ii 

<E,b, TO 10 ii 
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SCROLLIIG KÀZE 


Il terzo brano presentato In questa sezione del libro,si 
riferisce ad un labirinto grande quattro volte piu' dello 
scherno che scrolla tutte le volte che raggiungete uno dei 
bordi. 

Vengono date due versioni di cui la prima fa uso di routines 
in linguaggio macchina e la seconda impiega esclusivamente 
il BASIC.Lo scopo del game e' quello di portarsi dall’angolo 
in alto a sinistra a quello in basso a destra usando anche 
qui i tasti cursore 5-8.Se volete eliminare la coda che vi 
lasciate dietro,cancellate le linee 3070 e 3075.Al RUR 
dovete attendere alcuni minuti prima che appaia il 
tracciato. 
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S 

CLERR 


50999 

4- 

FOR 

a 

SS 

©0000 

•5 

READ 


ri 


6 

POKE 


3 

.. n 

10 

NE XT 


3 


1S 

D IH 

c 


(4.5 j ©5 

30 

DIM 

a 

IH 

<10501 

as 

RRNDOM 

I2E 

30 

D IM 

b 

¥ 

( 10001 

40 

LET 

X 

43 

50 

LET 

Srl 

£2 

63 

50 

LET 


«22 

1 
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W *ffl TO 44 

ci (w) ■" « 

..nmànnnnnu 

« il a ti te n tt a; tx '• 

XT w 

S((XjWÌ 

A I .x. O i. 


8 

8 


InK I IP 1, j 'CK 1 W 

ip c * ,:;i i *« > w ) ■; *" ??«*.£* <x -a < 

W ” OR C A ( X , W + a ) W " « " OR C i X ,, 
*"8" TMEN 06 TO 100® 


X « 0 " T HI 

:; j < ■coi? 

tS-888 1 


..S 1 ? 


b 


i i X 11 


TO 

z ? 


£000 


X 0 1 

a, 8 « 


** (Zi nCHRlÉ x 
bÌ(Z)»CMR# W 

M X «f 1 

■ X NT <RND# 4 ) 

m ( C m 0 il - f, f » 1 il 

d « ( r" « SS ii » ( r « 3 !i 
c| (x +s#c ,y+8#d ) » 


*T' X 

T r 

P T C 
T d 

iSSé . ' ” 

3.070 let c * tx + c , y +d :• ■" : 
10 © ® L Et ci (y.+8#C w + 8 # d J 

-1 5*1 Cl I W "T" 'I.f* n« V _L Cl A i* 


TMEN 


11L -, 

itti 

ffll00 
-10 



.et x«»x+s#g 

bg T T»-’iSl* d 

POR W«8 TO 
PRINT C*Ui. 
ME XT W 

Let k»i 

W " 1 

p ni 

q «S 

, ., _nt Flash 

IP P»ffl3 AND 

Il y- M 


3 


'TO 00) 


i a, w j» n h" » 

RT 80^3®; 
i08“ ' 

_ j6 

304 
OOB 
O - 
EN 

307 ... 

>0» 0 

0® 


q-33 T Hi lÉ Hi IrINT 




OO TO 3080 

) - (Zl-"? 1 ^) 

J " ,ì - (Z|»" 8 ") 

ck+c ,,g+ d :i * " n " 


.30 

3 14 0 


• a, r *8-' 

3 ì 9 <§ 
IS 0 0 0 
£5010 

Egli 

S> 0 «i! 0 
E 030 
E 0 4 0 
6 0 9 0 
610 0 


LET X « 

IP Z|« 

LET C«(Z(« 

LET d* C X £ » _ 

IP 8 CR 6 BN * ( X * C ., LI + d il * " U " TM 

TO 308 . _ 

PRINT RT X y,;"H" 

L. ET X «a X + C 
.ET y «*y +d 

s£ U *g ^tìgN^QCI »WR«®S 
±p M «3 1 THEhi §OSDbB 
IP X »0 TMEN OO SUB 6 » . 

IP X «affli TMEN OO SUB S 3®0 
PRINT FLASH 1 ; RT x ,, u; 11 #" 

“ “ AND P «ffl3 R 


O 160 

O 16 O r- r*. iiIh i i r r hmn vn «»L ,i n f 

sai-ss ¥biis m**’ 9 * 


oo 


T Q 


33 1© 


RANDOMXZE 
LET W «y +1 
utó t q. «g, 

Cl R M.l m"* 


U6R 60081 


.. f O 

■iT RT W 


1 


Ci| (Pi i.u ,, q ) 


wé:5'T .. 

R ET U R N 

R R M O O fi IZ E U 5 Fi: 6 O O 0 0 
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f“ £ X w * y •" i 

koR. 3!Ì + ^ 


Ì!:sl 

esse 

Sili 

fi! 8 !9 * 
9 ffi 9 @ 
9300 


P g INT ” PT 1 S , 3 ì ,i c * < p + w ,, q+31) 
NEXT w 

DgJI ipM 

pRNftOMXZE U8R ©«111 
LET x «:k +i 
LEI p *p-1 

PR INT PT 0,0; C « i: P , q TO q +3 1 

p(w-f‘t ipf.^ 

P fiNfttìNIZE US R S 0 0 4.3 
LET x »:k ~1 

kilN?* 1 ' a i, 0 ; c * ( P + ffi 1 , q, t o 

P SETIJ P h.4 

D0TP '33,0,64 i66 à fift , 19iS , 6,3 1 
D RT R 3 « ,1 9 4 , 4.3 , 1 i è , 38, X 3 , 0 49 


w n i n w ,• f j g? r w ;i , r,,i ,bk , -au* iffls j w j »*, 

DRTR 96,94,43, X ift , 3® , 16 , 049 
DRTR 1 14,38 , é 1 , 3ffi , {£4 3 , &6l 
Bfltfl 33,afe®,8>,86,0,6ffi,198 
DRTR 8,31,43,94,Sé,i18,43 
6 RT R 16 , a 4 9,114,4 3,8 1,3 ffi 
DRTR SiÈjffiOi 

DRTR pS,*.64,17,98,64,889 
t RT R 0 i 3 , i 4,8 p , 8,3 a 119 

DRTR là 1,890 , > ,ft64,1,3»,ffi 
DRTR 18 1,18,38,19 , Ifi , 24 l, 13 

pRTR 4* , 19 , lai, 830 , , |B4,0 

DRTR 4®,a®,a84,7,3®,ffiffiè,813 
DRTR 1? , 3,7,88,80* , 84 , ffi 1,7 
DRTR ffi®9,ffiffié ,8* , 36,184,884 
DRTR 78,38,8*4,801,889,33,® 

BSTS 




DRTR 813,14, ffi3,6,3 ffi ,, ffi6,1 X 9 
DRTR 1ffi 1,830,7,884 , ì , 3ffi , ffi 
DRTR 181, lé,43,87,16,84 1,13 
DRTR 40,81,181,ffi30,7,884,0 
DRTR 4* , 84,884,7,38,888,*13 
>360 DRTR 17,*, 7,167,837,88,8*9 
(3^0 DRTR 84,818,8*9,&8ffi,ffi1,37 
1 5 8 8 DRTR 184,ffi 8 4,79, ffi *0,84,0* 1 
1*9* DRTR 889,35,0,7,838,167,837 
i4®0 DRTR »ffi , 836 , ffi ffi ffi , ffi 4 , L. 9 3 


Bd ecco la versione BASIC: 


BÌm q|(t&00) ; DIM b| (1000) 

4 0 LET K »45 : LET W*63: LET T m 1 
70 “SÉ W*8 TO 44 

®0 LET C É 7 W ) »" 8 tt M » « « W tt: « q**OttUtt 
nuutttontttouuunnnnn " : mext w 
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H3(i) LEI CI IX i«) *" " 

110 i F c 9 <. x + & , y J » ' ‘ u ' • 
y) « 11 n 1 ' OR c| (x ,yt2) s"a 
THE N 65 T O 10 
100 LET Z 5=2-1: IF 7 =0 


O S000 
14-0 LET 


150 
1000 
10 10 
10 3 0 
104.0 
1060 
1060 
6 u 

1070 
1090 
1090 
1110 
9000 
&010 
£: 0 9 O 
;9 100 

a 110 
a i a 0 

3000 

3010 
nd g. 
30:20 
3030 
30 4-0 
3060 
306 0 


x «CODE .a 9 (z ) 
LET y«CODE b % C 7 ) : 
LET a $ ( 7 !i *CHRÌ X 
L. ET b* (Z) sCHRl y : 
LET r « X NT (RND*4.) 
LET c * r. r «0 ) - ( r » 1 ) 
L.ÈT d * ( r «è J — ( r i=3) 
X f c. $ i: x + a * c y + a * d 
ro 1030 

LET c*(x+c,y+d) « 

L. ET e % f. x + a * c , y + a 
LET X*sX+2#C: LET 
GO TO 100 
LET xml: LET y«l 
LET q=9: LET cf( 
PRIMI RT 0,0: 

F' OR W a»p T O P +2 1 
PRIMT C $ ( W , q. TO 
NEXT W 

PR X NT FL flSH 1J RT 
IF X *2 0 AND y *30 
«33 THEN STOP 
LET z*«XNKEY* 

XF Z9«"" THEN GO 


( x + c , y + d i « " 
ex •+■ S # c y + a * 
<+2*C: LET 
100 

L: LET y »1 : 

2 : LEI' c 9 e 4. 


304-0 LET C « C Z 9 « 
3060 LET d«(Z$= 
3060 IF SCREEN9 
EN GO TO 3090 
3070 PRINT RT X 
3075 LET C9CX+P 
30©0 LET X ssX + C : 
3190 IF ya® THE 
•a ssq 1 : GO TO 90 
3130 XF y= 31 TH 
q»q+l: GO T O 9 
314-0 IF x 5=0 THE 
p ss p — 1 ; QO TO 90 
3160 XF xsgl TH 


6 " :i - e Z 

© ■■ :i - ( z 

( x + c , y 

y : 

y + q T ss " 
LET y « 


OR c 9 i X-2, 
" OR C 9 (X j 
0® 

THEN GO T 


GO TO 10® 
LET Z «Z +1 

THEN 


d ) ss ‘ • " 

y ss y a d 

LET P«S 
3., 63) « " X ’‘ 


+ 3 1 5 

x , y ; 1 ’ * " 

AND p 5=23 R 


TO 3030 

J » " T " ■) 

ss 11 © ■■ ;i 

+ d :t « * 1 tt " TH 


y +d 


XF y 

«0 THEN L 

ET " y éy +1 : 

L. ET 

1 : GO 

TO 9090 



XF y 

ss 3 1 THEN 

LET yssy-1: 

LET 

+ 1 : G 

O TO 9090 



I F X 

5=0 THEN L 

ET X » X + 1 : 

LET 


909® 

THEN 


LET X ss x ~ 1 : LET 


pssp+1: GO TO 9090 

3130 GO TO 3000 
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ROLLERXAZE 


Quello che segue e* un programma assai impegnativo scritto 
da Heil Pellinacci per tutti i possessori dello Spectrum a 
16K.Potrebbe girare anche sulla versione a 48K ma 
bisognerebbe,ed e' parecchio complicato,modificare il codice 
macchina del programma. 

Il gioco impone di attraversare il labirinto,generato in 
modo random,prima dall’alto in basso poi in senso inverso 
nel minor tempo possibile.Per animare la traversata,parte 
del labirinto ruota verso sinistra ed il resto verso destra. 
Voi naturalmente non vi spostate e avete a disposizione tre 
vite che vi verranno gradualmente tolte ogniqualvolta andate 
a cozzare contro parte del labirinto situato alla vostra 
destra o alla vostra sinistra.Quando ciò’ accade si genera 
un segnale acustico.Fella parte superiore dello schermo e’ 
riportato il numero dei tentativi accompagnato dal tempo 
impiegato e dal record in vigore. 

Alla partenza del programma,il computer vi dice quali tasti 
dovete premere ed anche quali sono i dieci tempi migliori 
assieme al nome di chi li ha ottenuti.Volendo cambiare i 
tasti di controllo,non avete altro da fare che azionare la 
’K’,mentre con ’S’ lasciate le pagine di testo e date il via 
alla gara. 

Il Rollermaze prevede cinque livelli di difficolta’,ma e’ 
consigliabile partire con il primo e via via alimentare di 
grado.Il tempo parte all'apparizione del labirinto e se il 
vostro rientra nei dieci miglioravi viene chiesto di 
battere il nome che verrà’ poi inserito nella lista 
dell'albo d'oro. 

Per inserire il programma in macchina,eseguite quanto segue 
e ricordatevi di VERIFY dopo aver fatto il SAVE: 

1/Battete il programma che segue e fatelo girare;e' il 
loader del programma in linguaggio macchina e deve portare 
alla scritta '9 STOP statement’. Registratelo quindi sul 
nastro perche’ ne avrete bisogno piu' tardi. 


3 

REM 1 . , .CO d 

ice M 

acchina 

S 

REM Po K e de 

i by t 

e 

1® 

POKE S3E09J. 

100 


a® 

CLEflR 3199$i 



30 

READ •» d d 



4.0 

READ byte : 

IF by 

t. esr-1 THEN 
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GO TO 30 

sta IP byte «989 THEM STOP 
©0 POKE a d d , b y t e 
"70 LET addxaddtl 
00 GO TO 4.0 

100 DATA 39000,33,96,64. , £06,160 
. 1£6,33,160,64,£05,1S0, 1£6,33,££ 
4,64. , 306,16Ó , lèB , 33 J .ia8;64. 2 a0S ji a 
00 .. lfi© . 33 ,19à , S4. , £06 , £00,1£6,33 , 
0, 7£ , 17,3£,0 

110 DATA 206,£00,135,£6,206,160 
, 1£6 , SS , S0S , 200,1SS , SS £06,160,1 

as 

120 DATA 26,206,200!126,26,206, 
160, la© SS , 206,200 , l£6 , a© , 205,1© 
0 , Ì£© 

130 DATA 33,0,60,206,200,126,26 
,206,160,1S©,séJ206,S00,IS©,£©,£ 
05 , ISO , i 2 s, aé , aós , 200 , iss , a,4T “ 



4.;: 


,1 -J j iSH-O ,1 (BO 1 fi»* A ^ O i .JC j j C5* ^ ^ ,, 

,261,36,193,1© , £36 ,24.1.226 , £02,1 
£3 gèi -i 

160 DATA 32200,197,213,229,245. 
17,32,0,6,8,197,4-3 , £6 ,1£© , £Ó3 , Si 
, £4-© , 1 © 7 , £37 , ©£,3©, 241,6,32,203, 
30,3©,16,251,167,237.82,36,193,i 
6, 230, £4-1,226.209,193,201, -1 

le© Data 32260 , 33 , 0 , 64 , 6 , 192,19 

7,6,31,36,125,43,119,36,16, £4.9,1 
93,64,0,3© ,16,240,201,4 
170 OPTA) 32300,6,1,206,0,126,16 
,261,68,4,92,264,81,32,4.1,1,0,£ 
01,264,90,32,4-, 1 , £ , 0,201 , £©4. , 73 , 
32,4., 1,3,0,201,264,80.32.4- , 1,4,0 
,201, £©4- ,71,32,4,1,5,0,201,1,0,0 
. 201,-1 

160 'DATA 32400,33,0,88,6,24,14. 
31,3© , 12© ,4-3,119,36,13,32,248,64. 
,0,35,16,241,201,-1 
190 DATA 32600,6,1,197,33,15,0, 
17,40,0,229,205.lèi,3,225,17,6,0 
,167,237,90,125,264,2©5,32,237,1 
93 i .1© . £30,201 , - 1 
195 DATA' 3£5©0.6,1, 197,33,0,3,1 
7,1,0,229,205,161,3,225,17,16,0, 
167,2 37,82,32 , £4.0,193,1© , £33,201 
,999 


2/Date di nuovo il RUI e quando il programma si stoppa, date 
il NEW per cancellarlo trattenendo in memoria il codice 
macchina. 

3/Battete il programma principale che e* riportato qui di 
seguito e quindi salvatelo appena dopo il primo eseguendo 
SAVE "ROLLERMAZE" escludendo la linea 9600 del programma. 
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l REM Programma 3 ...Game 
a rem * # Rolline! Maze * * 
Neil Pei li necci 

000 CLS LET 0*="LIUELL0 DI DI 

FFIOOL.TR- C1-*B) *' 

§ 10 INPUT <©*)'LEU 
si IF LEU <1 OR LEU > & OR LEU < >I 
NT LEU THEN LET 0*«"BflTTI UN NUM 
ERO DR 1 R 5": OO TO ©10 

POKE 32651,8: POKE 3S655,1: 

jS7,1 : POKE 32665,1 

BORDER 3: PRPER 7: CLS 

■310 PRINT RT 0,0.; PRPER Si INK 
7; " THE ROLLINO MfiZÈ 


?8Se 3fif 

9 00 


RT 


1,0: INK 

PRÙUE > 


© 


PRPER 
REC . > 


INK ©.; PRPER 
" RT 1,17; " < 


0 ; OUER 
;RT 1,27 


RT 1,29; PRPER 0; INK 
RT a,0; INK 1; Si; RT 3 
©000 


POR B*3 TO 


923 PRINT 
0; "TEM. > 0 

©@@11 

930 PRINT 
l ; RT 1,4.;" 

. fi 1 1 

' 94-0 PRINT 
© ; h ( 1 ) 

9fe0 PRINT' 

1,0; Si 
960 QO SUB 
100© INK 7 
1010 POR fi » 4- TO a© STEP £ : PRINT 
RT R,0;"BBBBBBBBBBBBBBBBBBBBBBB 
BBBBBBBBB": NEXT fi 
103© POR fissi TO LEU 

a 0 STE P s 

104.0 LET B 1 =s INT (RND#30) 4-1 : PRIN 
T RT B , B 1 ; " BB " 

1050 NEXT B: NEXT R 

1060 FOR R ss 1 TO LEU: FOR 0=4. TO 

,»j jgl g p g 

1070 LET B 1 ss INT <RND*30> +1 : PRIN 
T RT B,B1; INK Si" 

1080 NEXT B: NEXT R 

1090 POR R ss 3 TO 30: PRINT RT R,0 

; OUER l; INK aS $ : NEXT R 

1100 INK 0: RETURN 

1900 OO SUB ©00 

191© LET LIUESssO: LET T=0 

2000 LET FIN«ai: LET L=£: LET C * 

àil0 PRINT RT 1,6; P RPER 0; 

© ;T; RT L ,C; INK a ; PRPEP 7 ; 

2023 LET RssIJSR 33300: IF R*S THE 
N OO TO 3130 

2025 IF fissi THEN IF L>2 THEN IF 
SCREENi < L - 1 , C J ■■■:>"" THEN LET L«L 
- 1 

2030 IF R*3 THEN IF L<S1 THEN IF 
SCREENi (L+l,C) <>"" THEN LET L« 
L + 1 

2035 LET 0*0+ ( R ss* RND C<31)-(R«3 
RND C>0) 

£04-0 IF SCREENi (L,C)»"" THEN LE 
T RssLJSR 33660: OO TO 3 100 


INK 
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= ^ MrtFZL»'-- ronj-BfùmAiHfCiiOKt^ftJCnKilO Wtt©©Kfllì0»P v W 

Q QuiQQLm^ 7-P© : Q©QnfH©8©rflH©l_S ©ftìli 4DjXOBfijftìZfùOpWPHP- PPPPQ^f-QQ Q© 8 
-IftyUP PQQQp-i Q£i ft)0?%i tPHÌTU!?- GFH THU 05P -ÌQCR 0i_ £■ ~i +■L> P © CBQFZQQWP'- ©$JK v "\M® H01 
toSOOi ©Q+©©O?O©0-fàQSQ7; ©©©? © S H ©S»0© P©S0QF©9©H©'- ■ ®©P&©QPO»©08 2© 


IF LOFIN THEN PRINT flf L,C 
K a. ; ‘' Pi '‘ : LET T «T + 1 : OO TO fe0 

IF FIN«SI THEN LET FIN®2: G 
S© 10 

FOR Basi TO S: FOR fl»40 TO - 
TER -S: BEEP .004,R: BEEP .0 
-15: BEEP • 004- , 39-fl : BEEP .0 
9-fl-lB: NEXT R: WEXT B 

GO TO 2200 

LET LIUESsLXUES-1: PRINT RT 
9i PRPER 0.; INK B.ILIUES 

IF LIUESO0 THEN GO TO 2000 
PRINT RT 6,0.; INK 1.; S * ; RT 1 

SÉ 

PRINT RT 6,11; INK ©.; "GRRR 
TP"iRT 16,11;"GRRR FINITA" 
FOR R = 1 TO 256 : LET B=USR 3 


TO 

TO 


NEXT R 
FOR R «1 

000 

FOR R «1 

O TO 2230 
NEXT R: GO 
FOR B=G TO 

) *H (B) : LET 
E 3 * 

LET H (.Ri =T 

NOME 


: LET 

H $ ( 

R , 

T 

GO S 

UB 

S 

00 

0 : 

BORO 

ER 

0 


PR 

IO Li 





GO S 

U 6 

6 

10 

0 : 

4600 : 

REM 

T 

i t 


160: NEXT R: GO 

10 : IF T < M < R) TH 
TO 4-000 

R STEP -1: LET H 
H* (B + l) *HÉ (B) : N 

INPUT "BATTI IL 
LINE N « : LET H % (R 
) LEN Ni+1)«N* 
GO TO Ì070 
’ER 0: CLS : RE 

LET INK»6: GO 
I. O 

FOR C=1 TO 20: GO SUB 4500: 
CHR$ PEEK 23556e"S" OR CHR* 
23556»"K" THEN GO TO 4-100 
NEXT C 

GO SUB 6000: REM Opzioni 
FOR 0 = 1 TO 20: GO SUB 4-600: 
CHfi| PEEK 23556s"S" OR CHR* 

S 3556*"K" THEN GO TO 4-100 
NEXT C 

GO SUB 6600: REM Records 
FOR R = 1 TO ©00: IF CHRi REE 
656="5“ OR CHRÉ PEEK S3556a" 
HEN GO TO 4100 
NEXT R: GO TO 4000 
LET fl=USR 32500: IF CHRi RE 
3656="S" THEN GO SUB 4300: “ 

1200 

GO SUB 4300: GO TO 4300 
FOR R ss 1 TO 34: LET B=USR 
USR 3a400: NEXT R: RETURN 
R E m O a ri i b i o Tasti 
INK 0 : BORDER 6 : PRPER © : 
SORGER 3 

POKE 32557,1: POKE 32661, 

KE 32555,1 : POKE 32665,16 
PRINT RT 1,10: INK 0; "Ride f 

•=. t. :L 


G 


C 

10 
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‘Premi i 
TfliB 9 : " 


n u o 
P r o 


4.330 PRINT - - INK 1; 
vi tasti ad o a n i 1 * 
m p t " 

4340 PRINT " - IMK 
ER 7; "SU" TRB SI ; 

4350 LET K*PEEK S3SS6: 

THEN GO TO 4350 
4350 POKB 33311, K: PRINT 
;CHP* K 

4355 LET flsUSR 33550: FOR 
150: N EXT R 

4370 PRINT INK S.:TRB 11; 

7; "GIU' “; TRE 3 1 ; 

4350 LET K.ePEEK 335BB : IF K«355 
IN OO TO 4330 


Si TRB llj PRP 
IF KsgSS 
PRPER 7 
Rai TO 
PRPER 


33310, K: PRINT PRPER 7 
33550: FOR A«1 TO 

'3; TRB 11; PRPER 
IF KsgSS 
PRPER '7 
R = 1 TO 
PRPER 


TH 

4330 POKE 
;CHR# K 

4395 LET flsIJSR 
150 : NEXT R 
4400 PRINT INK. 

7 ; “SIN . " ; TRB 21; 

4410 LET KsPEEK 33655: 

THEN GO TO 4410 
4430 POKE 33337,K: PRINT 
CHR « K 

4435 LET R*=U3R 33550: FOR 

ISffl■ MFXT R 

4430 PRINT INK 3 ;TRB 11; 

7;"DEST.";TRB 31: 

4440 LET KsPEEK 33555: IF KsSSS 

THEN OO TO 4440 

4450 POKE 33335, K: PRINT PRPER 7 

;CHR* K 

4455 LET PsIJSR 33550: LINE R = 1 T 
O 140 : NEXT R 

4460 PRINT INK 2;-11; PRPER 7: 

"FRLL. “ ; TRB 31 ; 

4470 LET KsPEEK 33555: IF KsgSS 

THEN GO TO 4470 

4450 POKE 33343.K: PRINT PRPER 7 

; CHR * K 

4490 LET fl=USR 33550: GO TO 

4500 INK INK: RESTORE 4600: 

Rc=0 TO 3: READ R*: PRINT RT 
RÉ' NEXT R 

4510 FOR R =3 TO 6: READ R*: 

T RT A,6;A*: NEXT R 

4530 FOR A »7 TO 11: 

NT RT R , 14 ; R * : NEXT 
4 530 PRINT INK 7.1 RT 
da “ ; RT 10,4 : “Ne i i. “ 

Ltnacci “ 

4540 LET INKaINK+1: 

N LET INK*1 
4595 INK 9: RETURN 


READ 

R 

6,1 
Ri" 1 


RÉ 

S C 


IF 


1 ; 
INK. =»S 


4000 
FOR 
R , 1 ; 

PR IN 

PRI 

i tto 

“Pe t. 

THE 


450© DATA 
4510 DATA 
4630 DATA 


THE 
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4630 

DRTR " 

T©4® 

Il • • 

DATA " 

4650 

DRTR " 

^^©0 

DATA " 

4670 

DRTR " 

4680 

DRTR " 

4690 

4700 

DRTR " 
D RTR ' ' 

4710 

DRTR " 

©000 

REM O P 

S0 10 

POR Re» 


I « 
I 

« a 


V I 
11 


I 

R 


I 

I 


■ a n 

r. ri 

I MI 

a a a 


MA7P 

1 8 W I Raaaaaa laaaaaaa* 


0 ; SI 
© È) s 0 
I : " ; RT 
HT 0 


N(£xt R 

INK'"S: PRXNT RT 1© 

1 ? ; 10 ; BRIOMT 1; 
PER INIZIARE";RT 


12 


■=' , 

-t r? 


IGHT li "K"; BRIGHT 0;;" 

are tasi i". 

PR I NT 

i4i 

ì 


X '3 ,i j or’. 

PER CRHBI 


"PREM 
BR IO 
BR 


RETURN 
XMK 6 


T RT 15,9; "CO NT R 

,, RT 17,6; "- SIN - ' ; RT 17 

■ o-r- -la,©; '• - DEST . " I RT 


RT 17,4JCHRS 

n fc S l/ «•5 


CLS IN 
BR IGHT 


503 
§ 100 
□ L. L. I 

,S2;SU";RT 
19 . È 1 1 ; " - G 11J •' 

51Ì0 PRINT BRIGHI' .u, -j. ,w r, 

PEEK 3S3S7.; RT 17 , agi CHR $ PEEK 3 
8311;RT 19,4;CHR* PEEK 3333S;RT 
l§,20j CHR* PEEK 32319 
5120 PRINT RT 21,11; BRIGHT liCH 
RÌ PEEK 32343; BRIGHT 0 ; " - FALL 

©130 IN K 0: RETURN 
5500 BORDER 0 : PRPER 0 
K 7: PRINT RT 0,6; INK 
1" I RECORD DI 0 601" 

5510 FOR R=1 TO 10: PRINT 
ND R < 10 ; R ; " " ; H* (fl) ; . 

NE XT R 

©BIS PRINT W0J INK Sì " 

REMI "; BRIGHI lj"S"; BRIGHI 
O "i BRIGHI* li "K" 

SS20 RETURN 
6000 REM Motivo 
6010 RESTORE 8400 
6020 RERD R,B: IP R*99 THEN 
RN 

6025 IF Ras ©8 THEN PAUSE ©+©: OD 
IO 6020 

8030 BEEP R / 3 B-3+LEU : OO TO ©02 
0 


H C R :• 


0 


P 


RE'TU 


©4-00 

DRTR 

. 3 . 

. 4- , .3,4 

.. - «5 


10, .3,4-, 

3,4-,, 

. 6, 10, 

, » 3 

.4.3,4.. 

„ 9 , 

i 

6 . 1 

©4-10 

DRTR 

0 ® 

, 19 




6 4.2 0 

DRTR 

„ 4 : 

, 18, .4, 

•i 

JL «SS. ,i 

M 

.i f ,i CSD 

. >rii* , 4- « 

. © 


- 




8 4-30 

DRTR 

0 0 

,20, . ©, 

0 , . 

© 

, 4. 


8500 
0000 
90 10 


DATA 99 
REM UDO 
RESTORE 


0 

9000 


POR AsUSR "R" 
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TO USR ,, B“+7: READ ©: POKE R,B: 
NEXT R 

9030 DATfi 16,56,16,134, 

©8 , S4. , ìs© , ia© , aés . a©© . i 

9050 LET è#»"' 


1© , 4-0 , ©S i 

a© ,ìae,34 


( 


9060 DIM H(10): DIM H 
9070 POR R=sl TO 10: LÉT 

ei i Re uinacci Ni 

9080 POR fisi TO 10: REAI 

^1 |' p| '| ggg, , NEXT 
9090 DfiTft 360,390,430 470,510,65 

0.690,©30,790,1000 

9100 LET D $ = ".. 


10,80) 

M*(R)«* " N 
EXT R 
DB: L ET 


9S200 GO TO 4-000 
9800 POR Z=39880 


Z : 


TO 39880: PRINT 
NEXT 2 


z7 " PEEK 

9© 10 «iTnp 
9é©0 SRÙE "POLLERMflZE" LINE 971 
: SRUE "ROLLERCODE"CODE 33000,1 
0 
0 

9810 ©TOP 

9700 CL.ÉRR 31999: LORD ""CODE 
50 TO 9000 

9800 REM UDO: '*R M -R ; "B"*B 


4/Battete SUB 9000 e quando appare il titolo premete ’S’ per 
giocare.Se il programma si inchioda,vuol dire che avete 
combinato qualche pasticcio,viceversa procedete con la 
definizione dei tasti. 

5/Se tutto e’ a posto,procedete a salvare la copia finale 
usando RUB 9600 e controllatela con VERIFY "ROLLERBAZE” e 
quindi con VERIFY ”ROLLERCODE"CODE 32000,600. 

6/Giocate ora caricando il game oppure battendo RUB 9000. 

Il programma ,come vi sarete accorti,e* scritto sia in BASIC 
che in assembler.Quest'ultimo legge la tastiera,muove il 
labirinto e genera i suoni con gli altri effetti.il tutto e' 
controllato da dei POKE e la linea 9500 testa il codice 
macchina per controllare gli indirizzi.In memoria rimane 
spazio sufficiente per aggiungere altre routines di effetti 
speciali. 

Se possedete un 48K dovete spostare il codice macchina piu' 
in alto,per far ciò' ricordatevi che: 

I/dovete cambiare gli indirizzi USR nel programma principale 
II/dovete cambiare tutti i bit delle routines di cali in 
linguaggio macchina (sono quelli seguenti CALL=205 decimale) 
III/dovete apportare le adeguate modifiche al loader sempre 
in linguaggio macchina. 
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THREB D XAZE 


E* Scott Vincent che ha messo a punto questo maxiprogramma 
che per girare necessita di tutti i 48K disponibili nella 
macchina. 

Iella memoria del computer viene memorizzato un labirinto da 
10 per 10 e lo scopo della gara e’ quello di percorrere la 
via giusta,recuperare il tesoro e tornare al punto da dove 
siete partiti.Se perdete 1'orientamento,premete il tasto ’R’ 
che sta per ripetizione ;cosi' facendo,potrete rivedere 
velocemente le mosse fino ad allora effettuate.Una volta 
finito il replay,tutto tornerà* come prima e ve la dovrete 
cavare da soli.Per spostarvi entro il labirinto usate : 


1 - Per muovere a sinistra 

2 - Per muovere a destra 
0 - Per andare avanti 

L - Per tornare indietro 


Se premete due volte consecutive 'L' farete un giro di 180 
gradi mentre non potete battere due volte di seguito i tasti 
•1» e '2'. 

Qualora riusciste ad uscire dal labirinto col tesoro,vi 
viene comunicato il numero delle mosse impiegate.il 
tracciato non e* random per cui e’ lo stesso per tutte le 
gare,quella che varia e' invece la posizione del tesoro. 


6 BORDER S: PAPER S: XNK 1 : C 

-10 RANDOMIZE DIM M (9) : DIM N 


(3) : 

DIM 

M* (fi 01 • 

3 ) : 

D I M N % 

( 30© . 1 

fi 1 

SS 0 

FOR 
• ■ a " 

X SS0 

TO 

31 : 

READ y 

P O K E 

USR 

+ X , u : 

NEXT 



30 

FOR 

X ss: 1 

TO 

3 : 

READ M i: 

X ) : NE 

XT X 

4-0 

FOR 

X ss 1 

TO 

9 : 

READ N i: 

X J : NE 

XT X 

©0 

NEXT 

POR 

X 

X ss 1 

TO 

300 

READ 

M $ c X :■ : 

©0 

NEXT 

FOR 

X 

X as 1 

TO 

300 

READ 

N $ < X ) : 

70 

LET 

0 $ ss " 

00 1 

• » , 

LET P*=s 

•• " : LE 

T L ss l 

: LET Tf 

s=0 : 

LET Xssl + INT (RN 


T L*l: 
0 * 7 ) 


00 LET L -B = fi 0 1 * C X a 1 OR x s=4- OR x 
OR X =7 > +& 1 * (X sa) + 1 fi 7 * t X ss 3 ) + 1© 
■3 * < X ss S ) 
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9 
C X 


+ H7*(X#6) ■+• 19 1 * 
M* (L 

M C X 1 

if r-i* i :l , x i *" 1 


OR LaLb 

if 

IF R*8" 
TO 


* 

3 


3.1 * 
1 1 +URL 


OR L 
AND 

" THE 

1 + UR 
N * < L 

S00 


90 LEI Lb*a01* (X *4 OR X»©i +100 
♦ ( X s* 11 +84 # ( X ss 2 1 + 122* ( X *31 +•1712* C X 
«SI +196* (X *7) 

10© LET LC«94*(X«1) +98#(X«S) +13 
4 * ( X a 3 ) +131* (X *4) J.1 1-?JI ili" a 

( X a© 1 + 199 * ( i< *7 ) 

110 CLS POR X a* 1 TO 9: IF 
, x 1 sa 11 0 ” THEN OO SUB 
120 NEXT X 
130 FOR X oc 1 TO 
'• THEN OO SUB N 
14-0 NEXT X 
150 IF Lag OR LaLa 
«Le THEN OO SUB 920: 

Trai THEN OO TO 70 
160 LET A|aINKEY$: 

N OO TO 160 

170 LET P»UflL Nf(L, 

.1 " 1 +UAL N$ ( L ,4. TO 6) 

L N*(L,7 TO 0)#(R4i3c* 

, 10 TO 1 * C fi * »" L " 1 
1®0 IF fi # = “ r " THEN 
190 IF P=0 THEN OO 
200 BEEP .003,0: LET 
*«£>* + C "03" AND L C1001 + 

101+STRJ L 
210 LET P SI a 
220 IF L*2 
PRINT RT 10 
O": RETURN 
230 IF L=2 THEN CLS 
8,4.; "Bravo , hai i rn p i 
10., il,; LEN P ® " ni o s s e 

Un tasto per una n u ov 
AUSE 4.® 4- : RETURN 
240 IF LsLa THEN PLOT 

R R Li OUER 1:22.0: PLOT 
R U OUER 12 2,0 : R ET' U R N 
2S0 IF LaLb THEN PLOT 

DRRLJ OUER 1,54,0 : PLOT 
RRU OUER 1;54,0: RETURN 
2S0 IF LaLC THEN PLOT 

RRU OUER lj110,0: PLOT 
RLJ OUER 1.: 110,0 
S70 IF Tr»l THEN PRINT 

"TU ha i " .; RT 10,12.; "d i 
11,12;"iL tesoro 
260 LET Trai: PRINT RT 


OO TO ; 

TO 160 

La£: LET O 

"0" AMD L< 


aPI+At: OO TO 110 

AND Tr=0 THEN CLS 
,12.; FLASH 1 ; " INGR 


e 9 a t. o 

• p, r 


INORESS 
PRINT 


a 


g a 

11 © 
116., 

100 
100 


RT 
■' : RT 
14,0 j " 
ra . " : p 


,99 
'76 : 


D 

OR 


115 
60 : 


'7 2 


143 
32 : 

Q 


D 

D 

OR 


h a i 
, il, 
290 
3 0 0 
310 
3 20 

AT'0 
340 
RT 0 
360 
RT 0 
360 
RT 1 


RT 10 . 
:i. i. t e s o r 
RETURN 
LET yal 
FOR rial 


11 

G 


{, 


t r g v a t o 


RT 
i a ' 
URN 
9,11 


1* 1 ■■I 

.; ht 


RT 


•TU 
11 



TO LEN 


rial THEN OO 
p * ( y 


TO 


:,'T E P 
i90 


1 a 1 ' 1 " 

THEN 

PRINT 

#1 j 

1 = "0“ 

THEN 

PR I NT 

w l ; 

1 a ‘ ' 2 ” 

THEN 

PR INI" 

tti; 

) a" 1. '' 

THE N 

P R X NT 

n ì .; 


I. y 1 a 

( y 1 a 
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370 LET y=u+x 

360 FOR X * ì TP 25 5TEP 5: POR * 
«X TP X + 4 STEP l.S: BEEP . 004- , X : 

BEEP . 004 , X +& : NEXT a- : NEXT X 

390 LET L «URL G)*(n TP n+2) 

4.00 CL5 FOR X se 1 TP 9: XF M % ( L 

,X)*"0" THEN GP SUB Mix) 

'410 NEXT X 

420 FOR X ® 1 TP 9: XF M * ( L , X ) ■'* 1 

" THEN GP SUB Nix) 

430 NEXT x 

440 XF L=*2 OR L.»L.a OR L. -L b OR L 
se L C THEN (30 SUB 220 
450 NEXT n: OD TP 160 

6000 PLOT 
LOT 40,0: 


5005 PLOT 24,176: PRRU 0,-176: 
RRU 0,32: DRRU 46,0: PRRU 0,13 


40,176 : DRRU 32 , -32 : P 
DRPU„32,32: . RETURN_ 

i *** . L- r r-». i—i w *c-' .» -v. Il : 

DRRU -4© ,0 : RETURN 

5010 PLOT 163,143: DRRU 32,32: P 
LOT 183,32: DRRU 32,-32: RETURN 

5015 |5lÙT 231,176: DRRU 0,-176: 
DRRU 0,32: DRRU -48,0: DRRU 0,11 
1: DRRU 48,0 : RETURN 

5020 PLOT 73,142: DRRU 27,-27: P 

LOT 73,33: DRRU £7,27: RETURN 
6026 PLOT 73,142: DRRU 11,-11: D 

RRU 0,-87: DRRU -11,-11: PLOT SS 
,60: DRRU 15,0: DRRU 0,56: DRRU 

-15,0: RETURN 

5030 PLOT 165,116: DRRU 27,27: P 

LOT 162,33: DRRU -27,27: RETURN 

6036 PLÙT 162,33: DRRU -11,11: D 

RRU 0,87: DRRU 11,11: PLOT 170,6 

0: DRRU -16,0: DRRU © ,56 : DRRU 1 

S 0 • RETI IRN 

5040 PLOT '101,114: DPRU 19,-19: 

PLOT 101,61: DRRU 19,19: RETURN 

5045 PLOT 101,114: DftflU 8,-8: DP 

SU 0,-37: DRRU -8,-8: PLOT 110,9 

9: DRRU 6,0: DRRU 4,-4: DRRU -4, 

4: DRRU 0,-23: DRRU -6,0: DRRU 8 

,0: DRRLJ 4,4: RETURN 

5060 PLOT 154,114: DRRU -19,-19: 

PLOT 154,61: DRRU -19,19: RETUR 

N 

5056 PLOT 154,114: DRRU -8,-8: D 

RRU 0,-37: DRRU 8,-8: PLOT 145,9 
9: DRRU -6,0: DRRU -4,-4: DRRU 4 

,4: DRRU 0,-23: DRRU 6,0: DRRU - 

6,0: DRRU -4.4: RETURN 

“ ““ ‘ 3,143 : DRPH-.I 110,0: DR 

0,-110: DRRU 0,-1: DPR 

flU ou 


. SL' . U*' r-r. n V-, 

5060 PLOT 

RU OUER 1 

U -111.0: 
URN 

6065 PLOT 

RU OUER 1 


DRRU OUER 1.; 0,110: RET 

101,115: DRRU 54,0: DR 

- _ 0,-54: DRRU 0,-1: DRRU 

55,0: DRRU OUER 1;0,54: RETURN 

5070 OUER 1: PLOT 117.77: DRRU 3 
,3: PLOT 136,96: DRRU -3.-3: PLO 

T 136,77: DRRU -3,3: PLOT 120,95 
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DRRW -4-, 4-: OUER 0: DRflU 20,0: 
DRflU OUER l;0,-32: DRflU 0,-1: DR 
flU -23,0: DRflU OUER 1.: 0,23: RETU 
RN 

5230 DATA 16,43,26,255,266,96,48 
. 16,24,60,126,219,24,24,24,24 
6*390 DATA 8,12,6,255,255,6,12,8, 
24,24 ., 24,24,219,126,60,24 
6000 DATA 5000,6010,290,6020,©03 
0,290,5040,5050,290 

6010 DATA 5005,5015,5060,5025,50 
35,5065,5046,606©,5070 
6020 DATA "111","000000010" 
10l r , "000010000 / ' , "010101", "0 1000 
0011'* , "000010101" , "000010111" , "0 
00011","000000010","011","100000 
000 ",**111", "0 00 100000" , "101", "10 
1","001","010101","101","100001" 
, "011" , "001" , "011" , "101" 

6030 DATA "100000000*,"011","010 
011" , "0001100 11" , "0H", "011 f * ,"10 
1","100011","101","000111", "111" 
,"011","111","000111",*000011"," 
10 00 00111" , *‘010000 101" , " 101" , " il 
1‘* , "000101** , "010101" , " 101" , " 1000 
10101" , "001" , "000100010" 

604.0 DAT R "0ll" , "010111" 111" 

011" . ** 1000 10000" , "011" , "001" 

1" , "110011" , "111", "011" , "001 
, "001" , "001" , " 110001" , " Ì100< 

", "001" , "101'‘ , " 110001'* , " 111" , "00 
0010100","101",“010100101","0101 
0 1" ,"111" 

6060 DATA "100101" . "000010101" , " 
010000000" , " 101" , '* 100000010" , " 10 
0000001","010100000","011","0000 
01" , "111" , "111" , "000000111" ,"111 
", "100 111", "0 00 111*' , "000100111" , 
"111","000000100","001","001",*1 
00001","010011","001","000010011 
","010001* 

6060 DATA "010110000"100000010 
" , "110000000" , "011" . ■*00000 0101" , 
" ili" , "000101" , "000111" , "101" , ‘*1 
10101**, "000000111" , " 101" , "011" , " 
000000110" , ** 111" , "Ó00 101" , "001" 

" 1 10000 000* , " 100000 10 1" , **111"^ "I 
11","000001","100011"."001" 
100011" 


, Ì0 
>111" 
>0111 


Ó0> 


6070 DATA "100011","010000001"," 
011 " , "101** , "101“ , "001" , "111" , “01 
1 " , "010 101'* , "011“ , " 10 1" , " 101" , " 1 


01 "," 000000110 ". 
" , " 000011 " , " 1100 
11 11 i rTifta i i i' ' ‘ moie* 


11","000110000 
0000","00000011 
00011","0000001 
000110111","000 


1" , " 100011" , "000 
10","110000000", 

110000" 

6060 DATA "110111". a .. 

011 " , " 011 “ , " 011 " , " 011 * , 

"101" , "101" ,"111" , "101" , , *, 
00100000","Òli","101","100000100 
" , **10 1" , "Òli** , "0000 10001" , "011" , 


" 110011","000 


00011 
011 


ó 
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000X1X 


1101000 


•’ 101" , "010001" 

11" , "ili" 

6090 DRT fi "000 110 100", "000000110 
" ,"000000100","000010011","10000 
0000","010011","000100000", "0100 
00010", "100000101","000010000"," 
101" , "00010 1" , "000000010" , "111" , 
,, 011"i ,, 001" 1 "4ll" , "101", "101" , "0 
10000000","000001","000010000"," 
011","001","0@0011" 

©100 DATA "003000004.00-2" . "000000 
000001 " , "000005000006" , "0-2 ©00 000 
0026" , " 000007000008 " , " 000004.0020 
03","000010009011","00000600000© 
","000063000053","000012000013", 
" ©00006000007 " , "0000000 14.0 1©" 
©110 DAT 9 "009011000010" , "013000 
017016" , "0000130000 12" , "01500000 
0014","020000000031" z "0000000000 
19","000017016018","023000000022 
016018000017" z "000000021020", 

” ■' “- ' “ .. ^0000022023" 

00027" , "002003 
,“00003002 
, 0000000320 

035000030034 


j W KJ -4. 11 *-• W •fl-» 

000000000024. 


Ì000 


033000000032" 


6120 DATA __ 

00 0004- " , "00000002602 8 
9031","Ó00089000060' 

33" , "0000000a7P'Oft" ■ 1 

02903 100003L __ , 

"800036000037","039000033040" 
©130 DATR "000000034038","042000 
043041" , "000083000082", "00003700 
0036","04003900003©","0000480440 
46"."064000000065","071000072070 
","000047000048","000043041042", 
"049000000050","044046000048" 
6140 DATA "000000000061" , "00004-8 
000047" , "000000060049" , "00003804 
0039","011000010009","0000000870 
66","041042000043","000000066064 
000000000068","066000000067", 


J V,' t.' V t.' t.' W V hi.' fmS • 

0630©1064062 


031000030029" 


©ISO DATA "000000067066000060 
0000S9" . "000000000069" , "00000000 
0066","062063061064","0640620630 
61","000000000068","066000000067 
","061064062063","346000045044", 
"000073000074","Ì01000000102" 
6100 DATA "000076075077","000072 
070071","121000122120","07807900 
0080","000074000073","0000870880 
86","081000000082","076077000076 
","085084000083","000080076079", 
"000000082081","000098000097" 
©170 DATR "06600008708S","079000 
080078","000090000089","08400008 
3085" , "088086000087" , "0000930000 
91","000089000090","096000094093 
","000091000092","000000000096", 
"000000000100","093096000094" 
©180 DfATPi " 000083086084 "." 000000 
000099","000097000098" , "00009409 
3095","000103106104","0700710000 
72" . "146144 147 145" , "000000 102 10 1 
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104000103105 
000 X 0600010 ?" 

114113 


, "000107000106 
"000100000 10©", 

6190 DRTR "110000000111 
115113" ,"000 108000109" , l ioji . 
0158" , "000000111110" , "0001500001 
SI","11600011?118", 0001?1000178 

","000000000119","113114113115", 
"118116000117","077000076076" 
©300 DATA "000000186187","000124 

§ 00133","130131000139","00000000 
135" , "000 13 3 000134." , "1301380001 
29" . "000133130131" . "000000136134 
"."187000000186","131000000132", 
"000000000133","138000139130" 
©310 DATA "000000132131","000139 
130138","00000013813?","13900000 
0138","134000000136","1370000001 
36" . "000 14 1000140" . "000000138139 
","000143000143","000140000141", 
"144147146146","0001?3000174" 
©330 DATA "106104000103"."000143 
000 143" , "00014 9000148" , " 14614614 
4147","000161000160","0001480001 
49","112116113114","116113114113 
","©00164000166","00000016616?", 
"000000163163","0000001691S8" 
©330 DATA "000156000164","167000 
000156","160000000161","16300016 
4163","158000000169","0000001611 
60"."000180000161","000000165166 
","168000000167","162163000164", 
"166000000165","000000169170" 
6340 DfATfi "000173000171" , "000000 
167168","170000000169","00011711 
8116","000176000176","1471451461 
44"."178000179177","000174000173 
","000176000175","000182000183", 
"000181000180","177178000179" 
6250 DftTR "000164162163","000184 
000185" , "00017917 7 178" , "186 18700 
0188","000183000182","1900000001 
89","000194000195","000185000184 
n , " 187000188 188" 000000191192" , 

"000000000193","000000139190" 
©260 DATA "192000000191","196000 
00019?","000186186167","00019900 
0198","000196000194","0000001971 
96", 000000000200","000198000199 


7000 REM 


R = 

D = "•*■" 


B = "t" Cs"*»" 
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THREE D KÀZE II 


Una volta domate le difficolta' create dal labirinto di V. 
Scott,sottoponetevi quelle insite in questo secondo 
programma di labirinto tridimensionale scritto da Graham 
Charlton.Diversamente dal precedente,abbiamo qui un nuovo 
tracciato ad ogni game e l’area interessata e' una griglia 
di 22 per 32.11 computer necessita di circa un minuto per 
disegnarla tutta.Ecco qualche illustrazione: 


v 
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Dovete muovervi dall'angolo in alto a sinistra dello schermo 
per raggiungere quello in basso a destra.Usate ’R’ per 
voltare a sinistra,*L' per andare a destra ed ’F’ per andare 
avanti.Rei caso non vi ritrovaste,ricorrete alla ’H' che vi 
presenterà' la pianta del labirinto come si può' vedere da 
quanto segue. 
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C» 03; 33) 
4 $ (1003) 
bi(1000) 

X ss ìsc! 1 


10 DIM 
£0 DIM 
30 DXM 
4-0 LE7' 

S0 LET y 
60 LET Zs*l 
70 FOB w s*£ TO 
60 LET C * ( W ) ss" 
ttttttttJStttttttttttttttttttttt 
90 NE XT w 
100 LET c$(X,y) 
110 X F C $ C x + £,M 
u ) s= ■ 1 tt ' ' OR C È ( x . u 
y -£) ss 11 »' 1 THEN 35 


120 

ili 
160 
1000 
1010 
1020 
1030 
104.0 
1060 
1060 
G O 
1070 
1060 
109© 
1100 
1110 
2000 
20 10 
2020 
2100 
2110 
2 120 
2 130 
£14-0 


LET Z ss2 - 1 
IF Z 3=0 THEN GO TO 
LET X ss CODE a $ iz ) 
LET y ss CODE foi(z) 
GO TO 100 


2 2 

ttttttttttttttttttttttttttttt* 


)s= , ‘W" OR C <f ( X - 2 
+ 2 ) se " U " OR e* (X 

TO 1000 


2000 


LET 
LET 
LET 
LET 
LET 
LET 
XF 
TO 10:: 


a $ C z) sCHR* x 
b i (. z ) ssCHR £ y 

3 ss 3 +1 

r s'iNT (RND*4) 
e =s C r ss 0 ) - r. r ss i ) 

d ss ( r ss £ ) — e r =s 3 ) 

£ ( x + 2 * e , y + 2 * d ) 

r 


-.0 


THEN 


LET C 9 
LET e $ (X +2 * C 
LET x ssx +2 «■ e 
LET y ssu + 2 *d 
GO TO 100 
LET X ss3 
LET y ss3 
LET r ss 1 
PRINT «T 0 
FOB Ws* £• TO 
PRINT e «Min, 
NEXT w 
PRINT FLASH 


C x + e , y + d ) « ' ‘ 

y + 2 * d ) ss " 


O : 
gp 

2 TO 
1flT 


■ 2 


2 160 
0 

2600 
£610 
£620 
3000 
3010 
3 100 
3 110 
THEN 
PLOT 
O T O 
3120 
3130 
THEN 
1/4: 

X 4 


XF XNKEYJs 1 


THEN GO TO 214 


k s=i2-7 
L sa 3 7 

p s* (r si) ~ 

q s= i: r ss a ) - 

.1 3*0 

$ ( X + ...i * P + p 


I == '.Z> .■ 

r b*4 ) 

y + J 


CLS 
LET 
LET 
LET 
LEI' 

LET 
XF C 
PLOT 

126 -k 
32 0 0 

LET .is=J.fl 
IF c*(x+j *p ~g. , y + 
PLOT 12© ~ k , 6© + I. : 

DRRU 0 , - I. *3 /£ : DRRU 
G O T O 3 16 0 


S - K , S© + I. 


& & - L 


*q +q 

D R R 1,1 


ss '■ tt 

2 * k 


D R R U 2 * k 0 


0 

G 


* q + P ) = 11 tt 
DRRU k x4 
• K x 4 , 


3140 PLOT 128~k,SS+L 
X4,0 : DRRU 0 , ~ L *3 x2: 
3 160 XF C (M X + .i *P +q. , y 


* 3 X 4 : D R R U 
D R R U - k X 4 

+ . j * q ~ p ) = " tt 


- I. 

k 

0 
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TMEN PLOT 1S8 + K ,33+1. : DRRU - k x4- , 
- i. /A- : DftflU 0 , l *3 x2 : DRRU </4, - I. 
/4.: GO TO 3170 

3160 PLOT 128 + K 88+L *3/4 : DRRU - 
K/4.0 : DRRU 0 , ~ L *3 ./fi : DRRU k /<t ,0 
3170 LET K*k*3/4 

3130 LET lai. *3/4 

3190 GO TO 3110 

3200 1F x+J*P»21 AND y+j*q*31 TH 

EN PLOT iaé-k, ,88+L : DRRU 2 * k , -2 * 

I. : PLOT 128 ~k ,88 -1. : DRRU 2 * k ,2*1. 

3210 IF X *21 ANO 4=31 THEN STOP 

32 20 LET 2 % a .XNKEY £ 

3230 XF 2$="" THEN GO TO 3220 

3240 IF zia’ 1 r" " AND cì ix +p , y +q) *" 

" TMEN LET X *X +p : LET y a y + q. 


3230 XF 
3270 IF 
3230 IF 


EN L. ET Xsx+P: L. ET 4 «y+q 
XF 2 $ = "r" THEN LET r»r- 1 


2 $ a" I. " THEN LET r«r+l 
r=3 THEN LET r«l 

r a 0 THEN LET r »4 


3290 IF 2 5fi * ' 1 h " THEN GO TO 2100 
3300 GO TO 2E00 
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GIOCHI PER DUE 


SQUARES 


Con questo programma,scritto da Neil Pel1inacci,possono 
giocare uno o due contendenti su un campo di dieci per 
dieci. 

Dovete sistemare il vostro contrassegno in una casella che 
non sia già’ occupata oppure che non sia nelle immediate 
vicinanze di una già’ occupata dall'avversario. Il giocatore 
singolo se la deve vedere ancora una volta col computer: 
perde chi per primo e* nell’impossibilità’ di piazzare una 
mossa valida. Quelle illegali,non vengono accettate e quindi 
non eseguite. 

Il computer muove in modo random a meno che non trovi 
difficolta’ nel cercare lo spazio,nel qual caso si mette a 
sondare meticolosamente tutte le possibilità’. Se posto 
nell'impossibilità' di muovere,ammette la sconfitta. 

Bella gara a due concorrenti,il vincitore e’ colui che 
riesce per primo a sistemare cinque caselle del proprio 
colore in fila orizzontalmente o verticalmente. La mossa 
viene rifiutata se indirizzata ad una casella già’ occupata 
ed inoltre muovendo nelle immediate vicinanze (appena sopra, 
sotto o di fianco) dell'avversario gli regalate la 
postazione. 

Nella prima versione esistono diverse tattiche per 
sconfiggere il computer,ma attenzione perche’ anche un 
piccolo errore può' costare caro. Il game va giocato 
interamente con il CAPS LOCK attivato. Alla partenza del 
programma vi si presenta la pagina di menu’ con le quattro 
opzioni da A a Dj le prime due selezionano il numero di 
giocatori (1 oppure 2),la terza cambia i colori 
permettendone la ridefinizione da parte di tutti e due i 
concorrenti per mezzo dei tasti 1-7 non appena appare il 
segnale di prompt. Naturalmente non e’ possibile scegliere 
entrambi lo stesso colore. Il programma vi chiede se volete 
le spiegazioni e quindi si presenta con : 

NOME DEL PRIMO PLAYER CENTER’ PER SALTARLO) 
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Battete il vostro nome oppure.se e* uguale al precedente, 
battete solo ’ESTER’,la stessa cosa vale per il secondo 
concorrente. 

Il display mostra ininterrottamente il campo di gioco 
durante la partita e nello stesso tempo offre il punteggio 
con i dati di ogni giocatore consistenti nel numero di 
quadrati giocati e nel loro colore. All'apparire del segnale 
di prompt,nell'angolo in basso a destra dello schermo,il 
computer e' pronto ad accettare le coordinate mostrando 
anche quelle dell'ultima mossa eseguita. Eseguite la mossa 
battendo il numero e la lettera nell'ordine,ad esempio: 7A, 
1D. Inserendo AA la gara termina e si torna al menu* con le 
opzioni. 

Il programma e' scritto interamente in BASIC e ricorre a 
diversi moduli interallacciati dalla routine principale 
compresa tra la linea 540 e la linea 740. 


4-00 REM UDO 


500 
510 
630 
640 
R 0 : 
600 


« » ■ * __i ;; ■» ii ~i ; : « • * l_ • ■ 

D»| ,E a □ 

REM Line* 

REM ## * # # 

OO SUB 9000 


OO SUB 950 
GL5 INK 
OD SUB 9S00 


6000 


OO SU| 
BORDEf 


000 

PAPE 


PRPER 0: INK 7 
OO SUB 2000 : R 
THEN OO TO 5000 


700 OO SUB 

E M Player l 

706 IF UF OR RF 

707 OO SUB 6000 

710 IF N P » 1 THEN OO SUB 3000 

IF NP=3 THEN OO SUB 4000 

IF UF OR RF THEN OO TO 5000 

OO TO 700 
STOP 

PFM P I a u a> r *1 

BEEP. .'3 , -10 : PRINT INK 6RT 


720 
726 
740 
1000 
2000 

20 10 _ . _ . 

16,S2J"PLflYÉR 1";RT 
2020 PRINT RT 16,22; 

UE : " ; 

2030 OO SUB 2600: PRINT 


il 


7 , £ 2 ; P % 


È0^ 


IF 

IF 


NK 6;“~MUO 
RT 19,23 
RF THEN LET RF »1 : RETURN 
B(X,Y) <>0 THEN OO TO 203 


2 

2 


*34 

136 


IF NPal 


, . . _ THEN OO TO 2 100 

m LET LL» (Y~2) #2 + 1 : LET C( 

- 2 J #2 + 1 

2040 LET PlSsRlS+1: LET 
PRINT RT LL,CC; OUER 1 
Cl;" ";RT LL+l,ÒC:" 

2050 IF B < X , V + l.i «2 OR B < X , V - 1 ) «2 


:C* (X 

B(X,Y)al 
PAPER 
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OR B tXtl , Y) *» OR B(X-liY>«2 THE 
W LET B( X , Y )« 2 : PRINT fif UL.CCi 
OUER 1.; PAPER CS; " ";flT LL + 1 .. CC 
£'* " : LET P2S-PSS+1: LET PiSs.Pl 

2052 BEEP .2,10 

8065 IP NP«1 THEN LET UF«0: RETU 
RW 

8060 LET UF-0: GO SU© 7500 
807^ RETURN 

a 100 IF B (X , Y + l) «2 OR B(X.,Y-1» =2 
OR B <X + 1 ,Y) *2 OR B(X-1 /y')»2 THE 
N GO TO 2030 
2110 GQ TO 203© 

8599 REM Mosse 

8600 INPUT LINE R« : 

THEN GO TO 2600 

260© IF R $ *“RR” THEN LET RF*1: R 
ETURN 

2610 IF CODE RtU) <4-© OR CODE R* 
( 1 :i >67 THEN GO TO 2600 
2620 IF CODE R* (2) <6© OR CODE R $ 


PLRV 

MUO 


IF LEN R*<>2 



2650 RETURN 
3000 REM Spectruffi 
3010 PRINT RT 16,82; INK 6 
ER 2";RT 17.22;St;RT 16,22 
UE : *' ' 

3015 FOR R«1 TO 1© 

3020 LET XsINT (RND*10)+2: LET Y 
a INT C R N D * 10 1 +2 

3030 IF B (X,Y) <>0 THEN GO TO 302 
0 

304.0 IF B(X + liY) el OR 6 (X-l ,Y) =1 
OR B(X,Y + 1) «1 OR B C X , Y -1) =ì THE 
N RETURN _ . 

304.6 LET LL*(Y-8) #8 + 1: LET CCalX 
-2:i *2 + 1: PRINT RT LL , CC, OUER .1.1 
PRPER 02:" ":RT LL+1,CO;" 

30©0 LET fe ( X . Yi a2 : LET P8S = PS5 + 1 
RETURN 

3S00 REM Ricerca 

3610 POR X a2 TO 11: FOR Y«2 TO 1 
1: IF ©i:X.Y:i < >0 THEN GO TO 3S4-0 

3680 IF B < X. + 1 , Y ) = 1 OR B (X-l ,Y) al 
OR B(X ,Y + 1) si OR BiX,Y-l) «1 THE 
N GO TO 364-0 
3530 RETURN 

3 ©4>0 NEX.T Y: NEXT X: LET WF«1: R 
ETURN 

3229 RETURN 

4.000 rem Player £ 

4010 BEEP .3,-10: PRINT INK 6 ; RT 
16,88;"PLflYÈR 8";RT 17,88;OS 
4020 PRINT RT 18,88; INK 6;" MUO 
UE 

4030 GO SUB 2600: PRINT RT 19,23 
ì§31 IF RF THEN LET PF »8 : RETURN 
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4.033 IF B < X Y ) < >0 TMEN GO TO 403 

0 

4035 LET LL= (V-SJ *3 + 1 : LET CC = <X 

— gì #2 + 1 

4040 LET PaSsPSS+1: LET B(X,Y)*2 
PRINT RT LL., CC; OUER 1; PAPER 

T'O • " ' 1 : OT 1 I 4. 1 r* f.• 11 " 

40É>0 IF ' B ( X , Y + 1 i ■ 1 '' OR B ( X , Y - 1 ) = 1 

OR B(X + 1,Y) *1 OR B(X-i,Y)=sl THE 

N LET B ( X , Y 1=1: PRINT Ri - LL,CC; 
OUER 1.; PAPER CI;" " ; RT LL+l,CO 
:" ": LET PlSaPlS+1: LET PfiSaPS 

S-l . . 


4065 BEEP .2,30 

4060 LET UF a<é> : GO SUB 7600 

4070 RETURN 

6000 REM Gara Finita 

6010 BRIGMT 1: PRPER 1: FOR R*13 
TO 21: PRINT RT fi ,S2; " 

": NEXT R 

6020 PRINT RT 13.23;"Fine Gara" 

6030 XF RF THEN PRINT RT 16,24;" 
chiusa";RT 16,23;"dal Player";RT 

^ *7 o "p* ; pi p* 

6040-XI^ UF TMEN PRINT RT 16,23;" 
PLRYER ":UF;RT 16,25;"UINCE" 

5060 PRINT Rt 20,23; INK 6 ; "Prem 
i un ";rt 21,23;"tasto" 

5060 feRIOHT 0: PRPER 0: GO SUB 6 
000: FOR Ks-30 TO 40 STEP 2 : BEE 

P .05,K: BEEP .01,30-K: NEXT K 

5070 F'RUSE 0: GO TO 640 


" ; p 13 ; " '• 

6020 PRINT RT 9,23; INK 7;"PLRYE 
R 2 ";RT 10,22;0$;RT 11,23; INK 

7 ; PRPER 02,; ^D" ; PAPER 0; INK 6; 
" " ; P23 ; " '• 

6030 RETURN 
7000 RETURN 

7500 REM utrifica vittoria 
7610 FOR X=3 TO 11: FOR Y«2 TO 1 
1 

7620 IF B (X ,Y) < >0 TMEN LET R * B C X 
, Y :i : GO SUB 7600: IF UF«1 TMEN R 
ÈTURN 

75 30 NEXT Y : NEXT X : RETURN 


7300 

LET 

X 

1 

ss 

X : 

LET 

Y 1 »' 

V 




7 8 10 

F O R 

Z 

ss 

1 

T 

O 

4 : 

LET 

X 

1 srX 

1 

+ 1 : 

IF B 

C X 1 , 

Y 1 

J 


> R 

T 

MEN 

GO 

T 

O '7 

8 

30 

78 20 

NEX 

T 

z 


L 

ET 

UF 

s=R : 

R 

ETUR 

N 

7830 

LET 

X 

1 

K 

X : 

L 

ET 

Y 1 «' 

1 




7840 

FOR 

y 

ss 

1 

T 

O 

4 : 

LET 

Y 

1 *Y 

1 

+ 1 : 

IF B 

e X 1 , 

Y 1 

;i 

•r 

> R 

T 

HEN 

GO 

T 

O 7 

8 

60 

7860 

N E X 

T 

z 


L 

ET 

UF 

= R : 

P 

E TU 

R 

N 

7 86 0 

RET 

UR 

N 










7930 

RET 

URN 










800 0 

REM 

U 

a 

r 

i a 

b i 

l i 






80 10 

D IM 

P 

% 

( 

10 

ì : 

D I 

M O 

* < 

10) 


LET 
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CI»*: LET CS»6 

©020 dim Bell, lai 
©030 POKE sSees,100 
6500 RETURN 
6 © ® 0 REM Istruzioni 

BORDER 1 : PAPER 


0 © 10 

feSao 

3 j 

S & 3 0 


1: INK © : C 

PRINT RT 1,13.; "AREA" ; RT 2, 1 
- "Si rigo Làfni e n te , d o v e 


computer piazzando 
e ri t r o i 'area i n rn o 
nessuno di questi 
adiacente a quelli 


fare 


P1?IMT 

te battere i l 
i qu adrati 
do tale che 
risu l t. i 

dei computer*" 

©© 4.0 PRINT ' !, l.o Spectrufd 
o stesso e vi dira' 
lo . " 

S©50 PRINT INK 7.; " 

ASTO PER CONTINUARE 
©660 PAUSE 0: BORDER 
CLS : INK 0 
6670 PRINT RT 1,12;"l 

ilà 0 PRTRt ''"Gara a due giocato 
ri n ' ' '"Dovete battere i ' av ve rs a r 

io.sistemando 5 quadrati nell 

a riga" ' ' "prima c Mi e io faccia l u 
i • * * 

3690 PRINT ' " i_e linee p o s sono e s 
sere .orizzontali o verticali 


c h i Mi a v i n 
PREMI U N T 

« i 

6 : PRPER © : 
INEE"; AT R, 


UN TASTO p 
4- : PAPER 4- : 
rati co 


©700 PRINT ' INK a.l " 

ER CONTINUARE 
0710 PAUSE 0: BORDER 
CLS INK 0 

3715 PRINT '''TAB 7;"Ouad 
ntinui";TAB 7j"_ 

3720 PRINT ''"Se piazzate un qua 
d r e t t o nella " ' ' " p o stazio ri e adia 
c e n t e a quel la"''"de li 'avversari 

o .questo ne .risulterà' avvan 

téggiato . 

©730 PRINT '''' INK 7; 

PER SCEGLIERE LA GARA" 

©74.0 PAUSE 0: GO TO 9500 
9000 REM UDG 
9010 POR A«0 TO © : POKE 
A.l: POKE USR "B"+7~A,1: 

9020 POKE USR "A"+7,26©: 

R "B" . 25B 

9030 POR A «0 TO © : POKE 
A, 12©: POKE USR "D"+?~A 
T A 

904-0 POKE USR "C"+7,265 
R 11 D " .255 
9050 POKE USR "E", 255: POR A» 1 T 

O 6: POKE USR "E"+A, 129: N EXT A: 

POKE USR "E"+7,255 
9060 RETURN 

9200 REM Dis e q n o del c a m p o 


UN TASTO 


USR "A"+ 
NEXT A 
POKE US 

USR "C"+ 
12©: NEX 

POKE US 
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9S10 PfiPER 0: CLS 
9220 POR fisi TO 20 

RT R , 1 -- ” .. 

T R + l , i.; 


r 11 t rn 


PRINT 
; R 


NEXT 

9230 PAPER 7 : XNK &: POR R»0 TO 

9: PRINT RT 0^*2 + !; flj " " ; RT 21, 

R*2 + l ; R : " *• : NEXT R 

9240 POR R*1 TO 10: LET Rl«R*2 
9250 PRINT RT Rl.OiCMR* (fl+6+)ifl 
T RI 21; CHRI <R+64.5;RT R 1 + 1,0 ; ‘ 1 
" ; RT RI+ 1,21:" " : NÈXT R 

9260 PRINT Rf 0,0;" " : RT 1,0.;" " 

: RT 1,21;" " .; RT 0,21.: " 

9300 RETURN 
9500 REM Opzioni 

9605 LET RF«0: LET UP*0: LET P1S 

«0 : LET P 2 S s» 0 : DIM B (12,12) 

9510 BORDER 2: PRPER 2: INK 7: C 


LS 
9520 

" ; RT 

•9 C C 1 
9530 
9540 
t. o re 
9550 
tori 
9560 


PRINT RT 1,9.;"#**SQURRES*** 
3,0; "Scritto da Nei L Pe Uin 


P P I NT 
PRINT 

l I 

PR IN7' 

I i 

PP INT 
colori " 

9565 PRINT 
o ri i 

9570 PRINT 
pramtndo iL 
dente " 

9560 IP 
TO 
IF 


- ' TRB 12.; "OPZIONI" 
"TflB 6.; " CR3 Un gioca 


GO 
9590 
GO 
9695 
00 

9600 


TO 

IP 

IF 


TRB ©.; " CB3 Due gioca 

TRB 6; " tea Cam bi a i 

TRB 6; " CD3 Informasi 

L "opzione 
corri*, pon 

THEN LET NP*1 

THEN LET NP«2 

THEN GO TO ©6 

‘ TMEN GO TO 9 


" Scegli 
"'" tasto 


INKEY* 

9700 

INKEY$«i"B" 

9600 

INKEY|»"D" 


BORDER 7: PRPER 7: CLS : IN 
prINT ' " '"co lo re dei player 
'"Premi il tasto per 
desiderato 


LET RsCODI 
IP R 4-9 OR 


INKEYÉ 
R>56 TMEN 


il COL 
GO TO 


INKEY« < > "C 

9610 
K 1 : 

1 : " 
ore 
96È0 
9 è 30 
9620 

964-0 LET ClssR-4-0: ©EEP .5 
9650 PRINT ""'"Colore del 
2: "'""Premi il tasto per 
ore desiderato. " 

9660 LET RssCODE INKEY*: IP 
OR R :> 55 THEN GO TO 9660 
9670 LET C2=fl-4B: IP C2«C1 THEN 
C6 TO 9660 

9660 BEEP .5,02: GO TO 9500 
9700 input "Batti il tuo nome c+ 
" ENTER " 3 " .; L INE R* 


C 1 

P i a y e r 
il col 

R < 4-9 
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9710 ir R# *"" THEN OO TO 9730 
■q -p0 LEI* P £ »R $ 

9730 LET OÌ = "5PECTR U M ' ' : RETURI 


LET © 


iPECTRUh" : RETURN 


9800 input “Nome del player 1 

'ENTER'3 LINE R£ 

9010 IF Rfi w"" THEN GO TO 9330 
9890 LET P£*»R£ 

9830 INPUT “Nome del player a 

-ENTER'3 LINE Rfi 

984-0 IF R fi ss 1 ‘ 11 THEN GO TO 9880 


9SS0 LET 


9880 RETURN 


fi s»R fi 


15S 




FOUR II A ROV 


L*interessante versione del gioco "filotto a quattro" che 
segue,e* scaturita dalla fertile mente di David Perry. Ogni 
commento e’ superfluo in quanto le istruzioni sono insite 
nello stesso programma. 

Ecco come il gioco si presenta : 


1 2 3 4 S © 7 


■ 

■ 

■ 

■ 

■ 

■ 

□ 

i 

□ 

□ 

■ 

■ 

■ 

■ 

n 

a 

n 

□ 

■ 

□ 

■ 

n 

□ 

□ 

□ 

■ 

□ 

□ 

n 

□□□□□□ 

y 

nnnnnn 

a 



PLAYER 1 
fin g « i. o 


Ed ecco anche il suo listato ; 


£ POR n * 

usr * 1 a n + n , a 
DIM ri!7,7 
6 DATA © 

, iss,©e 

10 BORDER 
RIGHT 1: CL 
20 PRIMT 


0 


TO 7: READ 
WEXT n: GO 


4.0 

©0 

©0 

©0 

90 

100 

110 

120 

DRAU 

128 
200 
X N K 


POR ri » 

PLOT n 

DRAU 0 

NEXT n 

FOR n « 

PLOT © 

NEXT ri 

FOR ri a» 

168,0 : 
LET P I. 

BRIGHT 
LET P I. 

7 ; PAPE 


■i 


0,ia©,2 sb, ae©, 

0: PAPER 0: X 

AT 3 j 7 ! " 1 2 3 

1©& 


©a t o 

, 4-0 
, 100 


4-4. TO 142 
2 , ri : DRAU 


UB 
255 
N K 
4 8 

STEP 16 


OK 

©0 


0 

, 255 
7 : & 

© 7 


STEP 
110 , 


0 


1© 


34 TO 44 : 

NEXT n 
ausi 
0 

ausi: PRINT AT 

R " 2 : FLASH 1 " 


PLOT 25 ,n : 


1 Cri 
PL. 


j ©J 

Aver 
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1 " : PRXMT flT 19,8; A * : " 

2 10 input "mou, Player i 

' THEN 


220 
£10 
a 3 a 
a© 


INK 7Pfi 


IF mo >7 OR mo < l 

oo -sue 1000 
lei: _ e i a y «a : 


gg 


’ ilfiO 

TO 


PUyoS: PRINT AT 18,8, 

PER S; FLASH 1; " PLAYER 

ti I *♦« .1 M >t. . li || 

ào’fS 0 


i 1 i r ,1 r nr un. i= 5 , .i i i—. i—!*-**» i j 

8 ” : PRINT AT 19, S j©*; u 

|©0 INPUT "MOU• PLAYER a 
si*0 IF mo >7 OR ma < 1 THEN 

>1 n 


a 10 

a©® so sub 1000 
290 GO TO £00 
1000 GO TO 1060 
1060 FOR n*B TO 1 STEP 
n , rii O) »1 THEN NE XT n 

1070 leET r<n, mo)=*i 

1000 IF piagai THEN 

n * a :■ , c rn o * a ) + © ; INK 
Pi 


G 


RETURN 


IF r ( 


PRINT RT 
S.; ©RIGHT 


10B1 IF p I. a y * £ THEN PRINT" RT 
n*a:i , irne. *2.1 + ©.; INK ©©RIGHT 

i*—i i i 


3+ < 

li " 

3 + l 
l; “ 


0 : D 
0,-1 


1090 RETURN 

©000 BORDER 1: CLS PLOT 0 
RRU 0,175: DRAM 25©,0 : DRAU 
7*5: DRRU -255,0 
©010 PRINT RT 2,3.; ©RIGHT 1.:" 

FILOTTO ! ! 

Iggglj^PRINT RT 3,3 ; • • 

©030 print RT 4..1; "Nel gioco del 
"; FLASH 1; PAPER 2; INK 7;"FIL 
OTTO" 

504.0 print TRB S; "impedite all'a 
vversar io di disporre 4- pedi 

ne in fila sia in verticale ch 
e in orizzontale che in diagona l 
e come mostrato." 

~ " RRU 0.175 

I . . . il 

13,li;"R 

RT 10,15,; "R" ; RT 11,1© 
17 ; "A" ; RT 13,18; "A" 

RT 10,S6;"A";RT 11,2© 


e come mostrato." 

©050 PLOT 0,0: DRRU 0 . 17© 

60^.0 PRINT RT 13,4; "RARA": PRIN 
RT 10,11; "A";AT 11,11;"R";RT 1 

.-i ii li i i . ^ ii /*■, i i 


H*T ..i- , 

,11; "R" ; Ri" 
©070 PRINT 
;"A";RT 12 
©080 PRINT 
;"A";RT 12 


© 

090 

INPUT 

' ' N 

o 

m e 

d e 

l 

P l a 

y e 

f 

R 

£ : 

IF 

L.EN 

A* 

> 

10 

THEN 

GO 

TO 

S 

09 1 

PR 

INT 

RT 


i©.. 

li 

I 

NK 

7 



2 ; 

FI-A 

©H 

1 ; " 

p 

L R V 

eR 

1 

. il* 

. i 

A» 


© 

100 

IN 

PUT 

" N 

D 

m e 

d a 

l 

pia 

y e 

r 

b 

£ ■ 

IF 

LEM 

B* 

> 

l© 

THI 

EN 

GO 

T 

o 

F, 

101 

PR 

INT 

RT 


1© , 

li 

I 

NK 

7 



2 ; 

FLA 

■SH 

l; " 

PLRY 

ER 

a 

• » • • 

. ,i 

bi 


© 

1 10 

PR 

INT 

RT 


18 , 

1 ; 

" p 

L AY 

ER 


INK 

2 ; " 

R " 









S 

120 

PR 

I NT 

RT 


19 , 

i ; 

p 

L AY 

ER 


I 

N K 

cr, ■ » • 

R " 







s 

130 

"" P R 

INT 

RT 


2 0 , 

1 ; 

F 

LAS 

H 

l 


2; " 

PRE 

MI 

E NT 

E 

R PER 

C 

OM I 

NO 

I 


1 " ; 

©090 

PAPER 

2 " ; 

©100 

PAPER 

1 * " 

2 « " 

; INK 
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TAJTX 


E* un gioco a due in cui dovete mirare e colpire la 
torretta del carro armato nemico. 

I comandi del primo giocatore sono : 

Sinistra - Z 
Destra - X 

Su - Seconda riga sinistra 

Giu’ - Terza riga sinistra 

Sparo - Riga superiore sinistra 

II secondo giocatore deve invece usare l’altra meta' della 
tastiera nel modo che segue : 

Sinistra - M 
Destra - Symbol Shift 
Su - Seconda riga destra 

Giu’ - Terza riga destra 

Sparo - Riga superiore destra 

Tenete presente che non appena sparata la granataci carro 
armato scompare per un attimo,ma può' essere ugualmente 
colpito cosi’ come può’ muoversi in qualsiasi direzione. 
Ognuno dei contendenti possiede tre vite,chi le finisce 
prima,ovviamente,perde. 

TAIX e' stato scritto da leal Cavaiier-Smith. 


10 REM Tanx 

16 REM n«a i Cava l i e r-sm i th 

a® LET X 1 ss 1 NT (RND*fi0> : UET yl 
*5: LET xa«INT (RWD#2®): LET y£* 

30 LET ylb*l: LET Xlb«0: LET y 
gba-1: LET XS b=s0 

4.0 LET C C *0 : LET C 1 «0 : LET lif 

«a®3: LET lif«la3 

B0 OO SUE 1000 
60 OO SUB 100 

100 REM I ^IMgWTitgrg KJBl 

101 PRINT HT X lj_y 1; " " 

102 IF X1b w 0 THÉM PRINT RT xl,y 

1 +u 1 b ; " 

103 ±F y1b ®0 THEN PRINT RT Xl+X 
1 b, u 1 ; ' 1 n 
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IM 650SS<e55 
XIsX1 + 1 : L ET 


RND 
X 1 b 


110 IF 
HEW LET 
y lba0 

1S0 XF IN 6 4.810<2SB RND 
EN LET XlsXl-1: LET Xlb« 

MlbsB 

130 IF IN 6E278-2S3 RND 
EN LET yl*yl-l: LET ylb» 

X 1 b * 0 

14.0 IF IN 68278*351 RND 
MEN LET yisyl+1: LET ylb 
X lb*0 

150 PRINT RT x2 ,y2;" " 

_152 IF X2b=0 THEN PRINT 

^lils IF U2bo0 THEN PRINT 
£! k> y 2 ' M f» 

lé0 SCF IN 491B0<25S RND 
HEN LET X a =X 2 +• 1 : LET X 2 b 

9 170 IF IN 57342<255 RND 
EN LET X 2 ex 2-1: LET X 2 b » 

y2bs0 

130 IF IN 32766*261 RND 
EN LET ygsyS-l: LET ySb» 

x 2 b * 0 

120 IF IN 32766*283 RND 
HEN LET y2*y2tl: LET y2b 
Xgb*0R^M | 

"202 IF CO0 THEN OO SUB 
210 IF SCREEN* Cx2+X2b, 

. ■' THEN GO TO 2000: PR ± 

. y 1CHR $ 144 

S-ll PRINT RT x 1 , u 1 ; CHR* 
212 IF IN 63486<2SS THE 

*213 IF C1>0 THEN GO SUB 
214 IF SCREENI (Xl+Xlb, 
" . THEN GO TO 2200: PRt 

, y2j CHR( 144 

220 IF x 1b » 0 THEN PRINT 
1+ulb; CHRÉ 14S 
2*0 IF M lb*0 THEN PRINT 
lb,yi;CHft| 145 
235 IF SCREENI (Xl+Xlb, 
“ . " THEN GO TO 2200: PRI 

, uliCHRl 144 
240 PRINT RT X2,y2;CHRÈ 
250 IF X2b=0 THÉN PRINT 
2 +y 2 b ; CHR J 1 4© 

260 IF y 2 b » 0 THEN PRINT 

2 b.,ya.; CHft* 145 

270 RETURN_ 

3 0 0 REM wfcig BB M W 
310 IF cC«3 THEN LET X2 


: LET y2ssy2+y2b 

311 FÒR C =0 tO '3 


1 : 


IF C =0 THEN GO TO 


X1<20 T 
al: LET 

Xl>0 TH 
-1 : LET 

y 1 >0 TH 
-1 : LET 

y 1 < 30 T 
al: LET 


RT X 2 , y 

RT x2+X 

X 2 <20 T 
al: LET 

X 2 > 0 TH 
-1: LET 

y 2 > 0 TH 
-1: LET 

u2 <30 T 
*1: LET 

N LET C C 
300 

s? + af b ìi 

144 

N LET CI 

400 

y 1+yibJ a 
NT RT X 2 

RT X 1 , U 

RT Xl+x 

y 1+y lb) a 
NT RT X 1 

144 

RT X 2 , y 
RT X 2 + X 


5- a x 2 + X 2 b 
3 5 
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315 IF 
T X2b=IW 

316 IF U2i ’> 
L.ET X 2 b *= I NT 

317 IF xa* > 
LÈT y S b «INT 

316 IF x2ft> 
LET y 2 b = INT 
319 IF X24< 
T 


U2S<1 THEN LET 
T (RND*3) -1 


ySbsl: LE 

y a b » -1 : 


li R X 
SUB 


*y ss 


X 1 + X 1 b 
^£00 


29 THEW LET 
( RND *3 ') -1 

19 THEN LET X2b*-1: 
(RND*3-1) 

16 THEN LET X2b=-1: 
(RND*3)-1 

1 THEN LET XSbsl: LE 
b «INT £RND#3) -X 
320 IF X aX fiND y=yl 
fiND ysyl+ylb thèn go 
330 PRtNT fiT x . y " •' 

33® PRIhrr fiT xSli use 
336 LET xaxSf: LÈT y 
34.0 LET X2a«X2s+x2b 
3 B 0 LET ya»wya»+ygb 
360 NEXT c 
370 LET CCssCC-1 
36© RETURN 
400 REM SheUl 

410 IF C1*3 THEN LET 
L ET ulsayl+ylb 

411 FÒR d*0 IO 9 

412 IF d=0 THEN 30 TO 
41® IF y1* < 1 THEN LET 

T X1b «INT (RND*3) -1 

:F y 1 » >29 THEN LET 
CRND#3)-1 

19 THEN LET X1ba-1 : 
CRND*3>-1 

1© THEN LET xlb*-l: 

( RNDi*3) ~ 1 

1 THEN LET X1b*1 : LE 
1 

•ID y = M 2 OR X »X a + X s 
b fiND y ey 2 + y a b THÈN GO SUB 2030 
430 PftINT fiT X .i y “ " 

PRINT fiT x la , y la 11 . “ 

LET X »x la : LÈT y*yli 
~IT XliKXlS+Xlb 
is+y ìb 


x 1 a «xl+xl b 


I 
lb 
IF 
1 b 
IF 


è l© 

T X 
417 
LET y 
4 16 
LET y 
419 

T y1b «INT (RND*3) 
420 IF X«X2 AND 


NT 
X la 
a t NT 
x la 


435 
ylbal 

' y 1 b «= - 1 


LE 


lbaINT 
IF X la 


43® 
4 36 
4-40 
450 
4 60 
470 
4 60 
999 
1000 
1010 
1020 
1030 
, a 

1040 
1050 
1060 
■ 126 
0,0 


ET ylsay 
NEXT d 
LET eiaCI 
RETURN 
STOP 
R E M 

FOR Z a144 TO 
FOR X*0 TO 7 
R E fi D a : POKE 


USR (CHR4 Z J + X 


NEXT x 
NEXT Z 

DATA 60,12S , 255,255 25S 

■ 60.24)24. 24.24 ,. 2 4 ,. 2 4,2 4 

_.0,266,255,0,0,0 
90 RETURN 

00.. PRINT fiT X2,y2.; FLASH 1 
0™ FOR Z»6 TO 100: NEXT 2 

0 ® print rt xs,ya.; flash 0 . 


2 55 
2 4 , 


SIB 
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£0 0.0 
£020 
SE 1 

v i n 
£030 

?É?| 

£205 
£ £ 0 © 


LET Li f e £ » I. i f6S-l 
IF Lifea=0 THEN PRIWT 
FLASH l;"GARA FINITA 
IL giocatore 
O STOP 

GO TO 100 

print rt xi,yii flash 

FOR X=5 TO 100: NEXT X 
PRINT RT X 1 , y 1FLASH 

i • 

£210 LET LifÉlsliffil-1 
£220 1F Li f ®1 « 0 THEN PRINT 
SE li FLASH li "GARA FINITA 

IL giocatore 
vinto STOP 

£222 GO TO 100 


INUER 
1 ha 


i 


11 


sr® 


0 


11 


INUER 
2 ha 
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UTILITIES IH LIHGUAGGIO MACCHIHA 


MEMORY MOIITOR 


Col programma che segue,studiato da David Perry,vi sara' 
possibile esaminare sia il contenuto della ROM che quello 
della RAM. Il listing contiene numerose routines hex/dec e 
dec/hex e vi permette di spostare,salvare e caricare il 
contenuto della memoria. 


RDDR 

+ h£ X : 

DEC : 

h e XPEEK 

C H R $ 

0 

0000 

243 

0OF3 

NE XT 

1 

000 1 

176 

00RF 

C O D E 

2 

0002 

1? 

00 1 1 


3 

0003 

ass 

00FF 

COPY 

4 

0004 

258 

00 FF 

COPY 

p? 

0008 

198 

0 0 C 3 

MOT 

© 

00 0 e 

203 

00CB 

THEN 

7 

000? 

17 

00 1 1 

*’? 

© 

0008 

*4- i£s! 

0 0 2 H 

* 

9 

0009 

93 

00SD 

3 

10 

000R 

92 

00SC 

\ 

11 

0008 

34 

0022 

1 ' 

12 

000C 

98 

0 0 8 F 


13 

000D 

92 

005C 

\ 

14 

000E 

24 

00 18 

* 7 

18 

000F 

67 

0 0 4 3 

c 

16 

00 10 

198 

00 0 3 

MOT 

IT 

00 1 1 

24 2 

0 0 F 2 

PAUSE 

R : 

N U O V O 

X ri d i r 

H ; he x 

~ d e c 

E : 

Eseque 

CODE 

D : de c 

- i-i e x 

3 

- S a v e 

X L - L 

o a d b y t 

li?!* m 


1 

a 

3 

4. 

© 

s 

20 
1 1 n d 
30 
4 0 

F,0 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
BR I 
i r i 
G O 
REM 
P R X 


M E M Q R V 1-10 M X T O R 
© D R U ID P E R RY ! 


QMT 0 : 

ZZO d i 

TO 330 
h e x - d e c 
NT RT 20 


G O 3 U B 7 2 0 : X N P UT 
p a r x e n z a ■? " ; fi D o 


0 ; 


60 PRINT RT 20,0.; 

70 LET : L.ET E s0 

S0 input "Ca r atte r i h e x "? " ; R % 
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: L ET Q $ ss " 0 " 

9 0 LEI Q ss0 

100 IF LEN R $>3 THEN GO TO 1S0 

110 LET R * »O $ + R $ : GO TO 10 0 

130 LET Us4.096: LET Ras E 

13 0 POR R = 1 T o 4. 

14-0 XF FN P ( R $ < R ) ) < E OR FN P l R $ 

« R ;i 5 > 1 © T H E N G O T O 10 0 

1 S 0 LET R =s R + I...I *FN P (fi* (Ri ) : LET 


LI = LI X 

16 




16 0 

NEXT R 




170 
*; " 

PRINT ’• Esadec 

1 1 

i m a e 

. 1 • 

j R 

,, *-®® 

PRINT " Deci 

fiì ale: 

i » 

a 

190 

PAUSE 0 : RETURN 




£00 

REM dee-heX 




£ 10 

PRINT RT £0,0; '■ 




330 

a 3 0 

i l 

PRINT RT £0,0; 

XNPUT ’' n uriiero deci 

ni aie 

•7 

.i 

R 





£4-0 

X F R > 6 6 ® 3 6 O R R < 0 

T H E N 

GO 

7“ 

o a 3 

0 




a 60 

P R I NT RT" £ 0 , 6 ; "Dee 
PRINT RT £1,6;"ES 

i rii a i e 

, * « 

; R 

; ” , " 

ade c i 

m a 

Le 

' 360 

LET U=4096: LET V « 

R 



£70 

LET" 7" s= XNT iYL-IJ) 





330 PRINT PAPER 7; BRIGMT 1; CHR 
« (4.® +T +7 * (T 9) ) ; 

S 9 0 I- E T V = V - U * T 
295 LET LI =L.l 16 

3 00 XF U ss 1 THEN GO TO 370 
310 RETURN 

3a 0 REm l.. ayout principale 

330 PRINT RT 0,0; PAPER 6; XNK 

0 : " RDD R+heX : DE C; h e XP E EK : CHR* 

, • • 

' 34.0 LET GO -RDD : LET TO =RDD + 17 : 

F O R L. = G O T O T O 

35© LET DEC «REEK RDD : LET C * «CH 

r * i; o e: c pi n d d e c > 3 a :i 
360 PR INT TflB ( 1 RND RDO <10) + (1 
AND RDD <100) + C 1 AND RDD <1000) + ( 
1 PiND RDD <10000); XNK 7; PRPER 4- 
; RDD ; PRPER 7 ; " " ; 

370 LET AaADD: GO SUB 360 

3 ®0 PR XN7.; PRPER 5; DEC; PR 

PER 7 ; TRE- 17; : LET AaDEC; GO SUB 
£60: PRINT PRPER 7; TRE) 3 4-, PRPE 

R 6 ; C * 

3 90 L E 7- R D D = R D D + 1 : IF R D D > 6 S S 3 S 


THEN 

LET 

RDD 

= 0 


4 00 

N E XT 

L 



4 10 

P R X NT 

RT 

19 , c?' ; 

P Pi P E R £ ; IN K 
H: hex -dee " 

j 1 * 

R : M U O 

V o 

X n d i r 

4 a 0 

P R X NT 

RT 

a 0 , a ; 

C O U 1 E 

PAPER a.; XNK 

6 ; " 

E ■ E s e 

9 U © 

D : de C —he X 

4 3© 

P R X NT 

RT" 

a 1 , 0 ; 

xnk 7; " 

papeR a ; '' 

S — 

s a v e 

L — L o a d b y t. e s- 
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. " PAPER 7- ; •• 

4-4.0 PRINT «1; 
C-Con tinu a 


M - s p o s t a fi e m 


450 

LET 

lasINKEYI 

IF lEJi ss; . T 

ME 

N GO 

TO 

450 





460 

N 

470 

IF 

X 5B ss 1 ’ R " 

OR 

H 

ifr 

U 

ù? 

T H E N 

RU 

IF 

X # « " h " 
GO TO 

OR 

I $ ssY 1 M 11 

T H E N 

GO 

SUB 

40 : 

4 10 



460 

IF 

I*»" S" 

OR 

X •»**«. •• 

T H E N 

GO 

SUB 

920 





420 

IF 

Iìa"d " 

OR 

I*s"D" 

THE N 

GO 

SUB 

200 

: PRUSE 

I * ss *• « " 

0 : 

GO TO 

4 10 


S00 

IF 

OR 

I $ =3 " E " 

T H E N 

GO 


< > " E " ~ ÒPi; X è < > " c. OR 
% < > " hi " OR X $ < > " fi " r 


5 10 IF I*s"L" OR ” THEN CO 

SUB 680 : GO TO 410 

520 ÌF I*«s"C" OR 1$s"C" THEN CL 

5 G O T O 3 30 

530 IF I =* “ rn " OR I*s"M" THEN GO 

TO 600 

540 IF I $ < > •' S " OR X g < > " S " OR X $ 
< > " L " OR I g < >" L “ OR I $ < >"h " OR I 
$ < > " H “ OR I % < > " d " OR X ¥ ■■ > " D ' 1 OR 
l5B<>‘ , e , ‘ OR 
X*<>“C" OR I* 

HEN GO TO 450 
550 GO TO 410 

5 6 0 REM R O utine di R UW 

5 70 iMPUT' "Eseguo L •' i nd i r izzo •? 
" ; Ex 

560 RANDOMIZE USR EX: PAUSE 0: 
RUM 

590 REM ©postarne n t o m & rr» o ria 
600 INPUT "Sposto dall' indi rizz 
O 7 " ; r-1F 

610 IF MF 
TO 600 
630 INPUT 
•? " MT 

630 IF MT 
TO 620 
640 INPUT 
stare ";N 

6 50 IF MT + N > 6 5 535 T M E N P R I NT U 1 
; " Troppi bi t ..riprova " : RRu5E 
0 : GO TO 600 

660 LET RDDaMT 
670 FOR Psl TO N 
660 PONE MT..PEEK MF 

6 90 LET MT » MT + 1 : L. ET M F = M F •+■ 1 : N 
EXT P 
700 CLS 
710 GO TO 330 
715 R È M Is t ru 2ioni 

720 DEF FN P (Al) * (CODE R $ 4 © -- 7 * 

( At > "9" ) -32*(A*>"2") li 
730 BORDER 7 : PRPE R 7 : IN J K, 0 


65535 OR MF<0 THEN GO 

• * fi u o v o d a i. L ' i n d i r i 2 z o 
65535 OR MT"-:0 THEN GO 

‘ 1 N u ffi ero d i b i t da s p o 


L 


740 
TOR 


PRINT 

1 1 

PRINT 


AT 

RT 


1,6; "r 


A 


2,6; "I fi E M O RY M O N I 
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750 PRINT RT 3 , S ; "| © DAVID PER 

RY ! 

770 .PRINT RT 4. , © ''Mmmmmmmmmmmtmmmmm 

7éti pr xwt RT 0 , 0 .;" Questo progr 
a rn rn a rii ostra i i. c o n t e n u to de t 

l a r o rn e de ue ra rn sotto forma di 
indirizzi di tipo d e cim a L e e e » 
a d e c i rn a L e ai quali corr ispondono 


caratteri e 
a t ori . " 

790 PRINT 
rn ette a neh® 
n t e u ri b a n c o 
rti re vai o r i 
rn ali e 

i far girare 
o da u n 


parti co lari 


v 


li Progra rn rn a vi per 
di spostare faci i rn e 
di memoria , di co n v e 
decimali in esade ci 
viceversa e anche d 
una routine pirtend 
indirizzo qualsiasi 


8 4.0 REM Routine di cari c a rn ente* 

& s © IM PUT "Vuoi caricare un p r o 
ara rn ma da n a s tro t V / N) •? " ;T$ 

©60 IF T < ss " Y ' 1 OR T®s=“y" THEN GO 
TO 660 

870 CLS RETURN 

©SO INPUT "Da che indirizzo •? " 

; + 

000 IF t >6SS3S OR t <0 THEN GO T 
O & S 0 

900 PRINT FLASH 1; PAPER 2; INK 

7 ; RT SI.,©,; "PREMI PLRY SUL. RESIS 
T R RT ORE ! 11 

910 LORD ""CODE t: CLS RETURN 

0a 0 P E M S a v e Memori a 
930 In P UT "Save da quale indiri 

zzo 7 " S F 

94-0 IF SF<0 OR S F >66535 THEN GO 
T Q 9 3 0 

950 INPUT "Numero dei bytes 7 " 

; n 

0S0 IF N <1 OR N >66535 THEN GO T 
O 960 

970 IN P UT ■ ' N o m e del S a v e "? " ; S * 


900 IF .... 

GO TO 970 
990 SAVE 

1000 RETURN 


OR LEN 3$>10 THEN 
%C ODE SF ,N 
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KC SCREEISAVE 


Questa routine e* stata scritta,sempre da David Perry,per 
lo Spectrum versione 48K. Essa vi permetterà’ di memorizzare 
e di disegnare immediatamente degli "screens” sfruttabili in 
qualsiasi programma. 


•10 

us 

1S 
18 
2 0 
3 0 
4.0 
27,2 
. 1.0 
0,0 
SS 
deal 
per 
t. a n t 
e n t o 
8 0 


BOPOER 0: PAPER 0 


INK ? : 


RESTOR 
FOR n =» 
R È R D a 

NEXT n 

DRTR 3 

37,176, 

O 7 'Z/ -~t• 7 

.i «x. i ,i az « 

P P I NT 
a da n a 
p o t e r i. a 
a n e a rn e ri 

iti" 

PRÌNT 
c h e r ni o 
PRINT 


4.0000 T O 4-0023 
POKE ri , a 

3.0 , ©4. , 17,4.8,117,1,0, 
201,33,48,117,17,0,64- 
, 176 , S01,196,14-4- , 234 , 

RT 0 ,0 ; •' Ca rica La vi 
stro e La memorizza 
ri chiamare i & 
te in qua uì asì m o m 

print "Per sa l va re 
batti : " 

"RRNDOMIZE USR 4.0000 


80 print print "Per presenta 
re Lo s chermo batti : " 

©0 PRINT "RRNDOMIZE LJSR 40012 


100 PRINT PRIN7‘ "ECCO U fi e Sem 

Pio. " 

120 PRINT FL-RSM 1 ; "Dai i L pLay 
ai. registratore 

130 LORD ""SCREEN* RRNDOMIZE 
USR 4-0000 

14-0 PROSE 0: CLS PRINT RT 0,0 
;"UN TASTO PER LO SCHERMO. PR 

USE 0: RRNDOMIZE USR 40012: GO T 
O 14.0 
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BASIC SCREEHSAVE 


Ed ecco l’equivalente in BASIC della routine precedente. 
Anche questa scritta da David Perry ed anche questa rivolta 
allo Spectrum da 48K. 


1 CLS : 
ma può ' 
desti per i 
succe & sì vai 
possi bi ie 
ma., sai v a r 
in seguito 
a PRINT 
j intera me n 
ornare u t i 
azioni . " 

3 PRINT 
R PARTIRE 1 
10 REM f" 
20 REM I 
30 REM I 
4-0 REM Ih 
4.5 CLS 
50 LET Ri 
da cui s a i *1 
60 POR Xi 
70 POR V' 
SO LET Ri 
©5 PRINT 
50 POKE f 
100 LET R: 
110 NEXT - 
120 NEXT J 
130 REM 
14.0 REM «• 
150 REM 
150 LET R « 


PRINT "Oue 
m e m 

poi r i p 

rn ente , Rd 
listareque 


P o i r i 


i. lo ; 
PRINT 
i r. 
i n 

PRINT 

PROSE 


rie 

* fi 5 

B 

m 


BASIC SCRE 
C c ! DRUID 


sto i 
orìz: 
r e s e i 
esami 
sto i 
ressi 
ermo 
: i p r > 
ir© ic 
i ile 

UN TI 

:ensri 

OERR 1 ' 


program 
z a r e vi 
ntar ie 
pio , a ' 
P r o g r a m 
ntar io 

i i 

ègra m rn a 
j p u o ' t. 
app li c 

RETO PE 


REM indirizzo 


X Y j 


*30000: R 

vare 

»0 t o Si 
*0 TO 31 
««SCREEN* 
RT X ■ V ; " 
fl . CODE R$ 
*R + 1 
V 
X 


ihhis c r i 11 u r a * * * 
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3:88 
200 
2 10 


LET R «30000 : REM 
ti caricare 
POR x »© TO 2 1 
POR Y *0 TO 31 
LET BsPEEK R 
PRINT RT X.YlCMR 
LET R*R + 1 


REM indirizzo 


$ 5 


220 NEXT Y 
230 NEXT X 
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IRELA9D 


Fate girare questo programma e vi accorgerete delle enormi 
possibilità’ grafiche dello Spectrum. L’immane lavoro di 
battere tutti i dati e' ricompensato abbondantemente dall’ 
ottima qualità’ del disegno finale. 

Potete conglobarlo in altri programmi per mezzo dello 
SCREEISAVE (sia in BASIC che in m/c) facendo apparire 
1’Irlanda sul vostro schermo. 


©ORDE 
8 : C 
CLS 
PLOT 
FOR f 
READ 
DPR U 
NEXT 
PLOT 
FOR f 
RERD 
DRRU 
NEXT 
PLOT 
FQR f 
RERD 
DRRU 
NEXT 
PLOT 
FQR f 
RERD 
DRRU 
NEXT 
PLOT 
FOR f 
RERD 


R 1: PRPER 
L 8 

123 ,135 
al tO 168 
a , b , c 
a , b , c 
f 

109,129 


1: INK 


3 


TO 

& •* c 
b C 


a 1 
a 
a 
f 

B© . 60 
TO 
b ., C 

b , C 


a 1 
•9 .• 

•a .• 
f 


7 


a 1 

a .i 


i c, <=• 

TO 
b , C 
b .. c 


66 , 67 
al TO 


210 

220 

DRRU 

NEXT 

a , 
F 

b , c 

225 

PLOT 

3 2' 

, 90 
TO 

230 

FOR f 

a 1 

24-0 

RERD 

a , 

b , C 

250 

260 

DRRU 

NEXT 

f J 

b , c 

266 

PLOT 

36 

, 93 

U - 1 . 

.2,0: 

DRRU 

DRRU 

-3 , 0 : 

4. 

.1 1 J 


6 


36,93: DRRU 0., 2,0: DPR 
DRRU -2,-2,0: DRRU -2, 


270 PLOT 
DRRU -2 


290 
RRU - 
RRU - 
2,-4. , 
1000 
0 ,- 1 , 


S , P I 
PLOT 


3,4- , P I sS 
3,0, -PI : 
- PI .•'•2 
DRTR 
5.0.- 


60,125: DRRU 
,2,0: DRRU -3 
.'3 : DRRU 6 
65,115 


6,-3, 

DRRU 


DRRU -1 
DRRU 0,~; 


0,3 , - P I X 2 
1,0: DRRU 

-PI /3 
3 , — 1,0 : D 
3,Pl/2: D 
,0: DRRU 


3,5,0, -2.3.-P1/2, - J. . e. , 

7,7 , pia , - é , 0 , p i xa , - 3 , 
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-2, -P I 

1010 DRTfl -6 
, 1,4. , 0 , ? , 6,0 
-è -Pi -2 - 

1020 Dfltfi -1 
.3,0,-6,?j0, 
1030 DATA -6 
-7,PI72 , -3, - 
3 . -6,0,11 , - 1 
0 ', -a.0.3. -2, 
104.0 DATA -é 

. 0 ,-5,a.Pi/a 

-10 ,PI /4 
1050 DATA -2 
1060 DATA 3, 

, — / , — 1,0 , — 1 , 

, 2 , -4 , P X , 4,0 
1070 DATA a, 
9,1,0,-1,-3, 
1060 DATA 0, 
PI/6, -4 , -3,0 
X/4,1,-1,0,- 
1020 DATA -1 
a , -4,PX/4., - 4 
X 7 4 , — 4 , —2,0, 
7 ,1,0,1 , -1,0 
,-2.-6.Pl/4, 
1100 DATA 2, 
P X74,6,2,0,- 
PI,9,3,0,3,1 
3 , A X , © , 2,0,2 

i 0 i fi ,, lisi! .i 0 .i 4- .i — 

1110 DAT" A 4. 
0,3 , P I / 1.5.4 

, i, a , 0 ,4^. a , 0 

,2,0, -1.3,A X 
1 , A X 7 1.3. , 1 , 1 
,0,7,0 ,PI/4 
1120 DATA -1 
, 1 , O , 4,0,0,3 
7 6 ,3,6,0, - 1 , 
1130 DATA -3 
.2,-1,0,0,3, 
,-2,6,0,0,3, 
,0,3,-PÌ,3,3 
.0,1,0 

1140 DATA 4, 
,0,7,PX/6,2, 
1 , 10 , P I 7 6 , -2 
1150 DATA -5 
1160 DATA 1, 
■PI/1.5,-3,1 
, 1 , - 1,0,4 , - 1 
117*0 DAT A 3, 

, — 2 , — 1,0 , — 2 ., 

, 0, -3, -PI72 

né© Data 3, 
1 , PI.,-6 , -4,3 , 
1190 DATA 2, 
,0 , -3 , P X 2.0 

1200 Data 4 , 

0,0,0,3,0 , -4 


, 0,0, -4 , -S , 0 , -3 , -1,0 
,-6,2,Pl/4,-3,5, 0 ,-3 
6,(PI/1,5) 

,-4,0,-2,0,0,0,1,0,2 
-3,-2,0,-4,-a.PI/1,5 

, - 2 , 0 , -i ,-é, px/a , -a , 

3 , PI/1.5 , -7* , -3 , PÌ/2 , 

, 0 , — 2 , —3,0, —10., —5,0, 
0,-i,-a, 0 ,-7,i,Pl/4 
,a,0,-3,-6,PÌ/4,-1,6 
, -e,2,0, - 1 , -4 ,P X , -3 , 

, — , —p X 

-2 7 A X ,4 , -1,0,0, -2,PI 
-6,0,—6,-2,0, 1 ,-4, PI 
,PI/1.5,5,-2,PI*1.2 
-1,PI/S,6,-S,PI/1.5, 
0,-6,-1,0,—4,-7,21/6 
-2 , P X , - 1 , -5,0, -7 , -6 , 

, i, -a , px , t* , è , 0 , 6,0 , p 

9,0,0,-5,-é,-Pl/5 

, i , •• 0 + 1 ■■ “fi .0 A 

,-1,0,-5,a,P X ,-4,0,P 
0 , -5 , P X .- a , '7,0 , -P X /4 , 

, -3 , -2j.pl/10 , -9 , -a , 0 


1 #1 


« J I 

• a, p x 


0,0,3 , - 2 , P I 7 1. 5 , 4 ,1 , 
© , -4, 0 , -5 , -5, 0 ,1 , -3 , 

, 0,3,0,0 , -7* , -2,0 , a , - 
,-3,0,4, -a , -P X 76,4,0 
1,0,5, 2 ,0,5,1.PX/1.5 

a , pi/a , è , 0 , 0 , 0 , 3 , pi, 

,0,0,1, -5 .P X 74, a ,0,0 

, 0 , a , 0,1 , 1, 0 ,4, 0 , 0 ,3 

7 2,4,2,0,5, 1 ,P X 7 4 , 4 , 

, 0,4,0 , P X , 4 , - 1,0, 2 ,0 

,3,PI75,-2,3,PI74,-3 
, 6,0 , a , 7 , P X 74, 2 ,6 , P X 
3,PI/2,0,11 ,PI 76 
, 3 , PX/4. , -a, 0.0,3,1,0 
AI,-1,3,0,0,6,PI71.7 
P X 7 3, 0,3,2173,-1,0,0 
, P X 74,4,2 , P X 76,3,5,0 

0,0,2,2,PI 73, -1, 4 ,PI 
1 ,P X,2, -9,0.2,0,PI, - 
,3,Pi 72, -2,1,0 
j. -3,2X74,0,2,0 
3 , P X 76,2 , S , P X 74 , -3,0 
, -P I 7 1 . 5 , -3 , -6 , -P X 73 
, P I 7 5 

3,4,0, 5 , 6 , -P X 74, -1 , 1,0 
a , -3, -P ± 73, -3 , -4, -PI73 

2,0,2,-1,0,5,0,0,-3, 
-2X71.75,-3,-4,PI73 
3,0 , -2, 5 , P I 78, 0 , -2,0 
,-3,P 1/2 

-3 , A I 76,4 , -4 , P X 76, 1 , 

,6,PI 76, -5, -1,0 
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MASTER COPIER 


David Perry e* anche l'abile autore del programma seguente 
il quale e' in grado di copiare automaticamente programmi in 
linguaggio macchina. 

Se esiste un loader in BASIC,dovrete copiarlo per primo 
battendo MERGE e poi SAVE "nome” LIME e il numero della 
linea che carica il blocco in linguaggio macchina. Il 
programma legge il titolo,carica il contenuto e quindi vi 
dice in che modo salvarlo. Seguite esattamente le istruzioni 
riportate nel listato e non avrete alcun problema. 


5 

6 
7 
© 
9 

7 20 

10 
11 
CARI 
0 AT 
12 
13 
14. 
i. a 
16 

© 4 

16 

©9 

17 

73 

18 
19 

9010 
90 
2 1 


I. 


OD SUB 
CLERR 
POR l. » 
READ X 
DAT A S 
,0,20S, 
NÈXT i. 
PRINT 
DANDO L 
7 . 10 ; " 
RANDOr-1 
LET u » 
C L S 
tfistat 
IP REE 


31 

32747 
3274© TO 
POKE L , 
6,62,0,22 
© 6 , 6,201 

RT © . 2 ; P 
R TESTATA 
ATTEND I 
I2E USR 3 
1 : OD SUB 

PRINT RT 


32 

X 

1 , 


L R 
! 

P7 
' 1 
0 , 


K 32000*0 T 
IP PEEK 32000*1 T 
IP PEEK 32000*2 T 


76 1 

33,0,126,1 

© H 1 ; " ST o 
"; PLRSM 

• i 

4 © 

9: LET U*0 
10;"Dati d 

HÉN OD TO 

HEN OD TO 

HEN GO TO 

THEN RUN 
32001 TO 3 


IP PEEK 32000 0 3 
LET Z **" " : POR B: 

LET Z$aZ$+CHR* (PEEK B) 
NEXT b 



22 LET 

23 LET 

o % *z $ 

AsPEEK 32011- 

LET 

B »PEE 

K 

320 12 
24 LET 
26 LET 

N*A + (B*266) 

A«PEEK 32013: 

LET 

BkPEE 

K 

32014 

26 LET 

27 LET 

M *A + (6*266) 

R «PEEK 32016: 

LET 

B»PEE 

K 

r* a 0 16 
So LET 

O * A + (6*266) 




29 IF U * 1 THEN RETURN 

30 GO TO 47 

31 BRIGHT 1: BORDER 

INK 7: CLS : PRINT " 

STER COPIER" 

32 PRINT " == 


0 : PAPER 0 
MA 
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33 PRINT 
34. PRINT 


OPIfl 
STRI I 


IN 


QUESTO PROGRRMMfi RIO 

RUTOMRTICRMBNTE I LI 
LINCURGGIO MACCHINA. 


3> 

li il 


UN LOADER BA 
PRIMA MERGE 


3© PRINT 

3 7 P R I NT “SE C ' E ' 

8 l6 2 corIRTELO “ 

“ PRINT "BATTENDO 
E P n i “ 

39 PRINT "SAUE ""nome"" LINE C 
he e ' i a Linea dalia quale parte 
i i L i n q u a q q i o w a c c h i n a " 

4-© PRINT : PRINT "IL PROGRAMMA 
LEGGE IL TITOLO" 

4-1 PRINT "CARICA IL PROGRAMMA 
E QUINDI 

42 PRINT “UI CHIEDE SE UOLETE 
SALDARLO• 11 

43 PRINT PRINT "1...INSERIRE 
LA CASSETTA ALL'INIZIO DELLA 3 

EZIONE IN M/C" 

44 PRINT “2.a.CONSULTARE I COM 


A N D I " 

45 PRINT 

4© PAUSE 
4 7 l“:LS 
COPIER" 

43 PRINT 


.PREMERE UN TASTO 


0: CLS 
PRINT AT 

at a .. s“ 


RETURN 


MASTER 


sssssa> = sasaas! 


42 PRINT AT 3,0.; “Re r s a I. v are i 
l programma sulla “ ; PRINT “c a ss 
atta dovete per prima cosa 

E 0 pRINT “aver salvato il ioad 
er BASIC e “: PRINT “quindi riav 
v o i gare i l n astro " : PRINT “a l l 
■‘inizio delia sezione 

51 PRINT “in CODICE/M R C C hINA a 
Dare il “: PRINT ““NEU' e batter 


52 PRINT 
“CODE “ m 


,OAD" 


z %“ 

COMAN D 
PRINT 

Ouando hai c 

c 


PRINT 
; " , “ ; n 

"CONTROLLARE I 
I,PREMERE UN TASTO,DARE “: 

“IL PLAY RL REGISTRATORE. 

54 PRINT PRINT 
aricato batti:" 

55 PRINT PRINT “SAUE“ j Z $ ; 

ODE “ ; m ; “ , “ : n 

5© PRINT “INSERISCI IL N UOU O N 
ASTRO, “: PRINT "CONTROLLA I CO 
MANDI,UAI IN REGISTRAZIONE e PRE 
MI UN TASTO “ 

5 7 INPUT “Copu per ia s ta mpani 
e •? ( m n ) " ; at 

53 IF a * «“u“ THEN COPY 

52 IF a * = “ ri 11 THEN PR INT AT 21, 

0 ; BRIGHT & ; “Puoi sc rivere qui d 
j. s e gui to ! “ 
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60 
i in 
61 
63 

ER fi ; 

U ' ! T '* 

63 

64. 

i c a t o 


INPUT "Ui sono altre sazion 
M✓C da copiare (y/n)";as 
IF a $ *= ‘' u '‘ THEN RUN 
PRINT RT ai,Si FLASH 1; PRP 
"UN TASTO OUfiLSIPSI PE:R "NE 


PAUSE 0: PAUSE 
CL9 PRINT "R 
la testata": 


0: NEU 

ai appena c a r 
PRINT " BASIC 


66 PRINT "COL TITOLO" 

66 PRINT Z*.;" LINE " ;m 

6 ? PRINT "LA SUR LUNGHEZZA BAS 

IC E' " ; o 

68 PRINT PRINT "Un tasto qua 

tsiasi per dare il RUN al progra 
mma": PAUSE $: RUN 

69 CLS PRINT "Hai appena car 

icato un titolo " : PRINT "format 
O da un ARRAY NUMERICO" 

70 PRINT "dal titolo" 

~y p p| j NT Z 

73 PRINT PRINT "Un tasto qua 

i sisi per dare il RUN al program 

ma": PAUSE 0: RUN 

73 CLS PRINT "Hai appena car 

icato un titolo " : PRINT "format 
O da un ARRAY di CARATI. " 

74- P R I NT Z Si 

76 PRINT PRINT "Uri tasto qua 


tsiasi per dare il run ai progra 
mina" : pause 0 : run 
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UTILITIES E DIMOSTRAZIONI 


BIORHYTHMS 


D'ora in avanti potrete conoscere i vostri periodi di alti 
e bassi grazie a questo programma grafico dei BIORITMI. 
Esistono tre cicli che iniziano dalla nascita e che si 
ripetono ad intervalli costanti di tempo. A detta di molti, 
tali cicli possono indirettamente influenzare gli eventi 
della vita di una persona. Vediamo quali sono : 

fisico mentale emozionale 



FISICO - E' un ciclo di 23 giorni che controlla 
parametri come resistenza,debolezza,vigore 

ecc.. 

EMOZIONALE - Dura 28 giorni e governa i sentimenti come 
ottimismo,pessimismo ecc.. 

MEITALE - Pilota i filoni della logica e del 
ragionamento e si completa in 33 giorni 
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I1 programma 
suggestivo. 


si autolancia ed offre un quadro 


1 RESTOSE 
a PRINT RT 0 .. 0; " 

P IT MI " 

10 INPUT "Data di nas 
ci i o ' ' ; a " rii e s e ' ‘ ; b ' 
c 

S0 input "Data di ogg 
se " d " anno 

«g pgj p | 

3 0 LET t»INT ( ( (e-C) * 
< d-b) *30.35) -a) 

30© POR r w0 TO 255 
S10 PLOT r ,10 
eie IP raINT ( r/b)*b T 
*10 TO 20: PLOT r,U: NE 
320 NE XT r 

630 PRINT PT SI,0j"imo 
20rfio 30mo" 

©4-0 PRINT RT 0,0.i INK 
" ; INK a.: " m e n t a L e 
emoziona Le" 

900 POR r * 1 TO 3 
905 READ u 

910 LET l«a#PI#<t-CINT 

'' 920 LET K«2*PI*(33-U) * 
1000 POR a * L TO H + U!:s* 

. 1 

1010 PLOT INK <(1 RND U 
ND u s26 :i + ( 4- RND U»33) ) ; 
- £ © + u ) ,90+SXN a * 6 0 

10 90 NÉ XT a 

1030 NEXT r 
104.0 DRTR 33, a©, 33 
1050 INPUT "RL tra prova 
XP a$(l) a"y" THEN 30 TO 


G> IO 

cita ?" , " 
anno ' 1 

ì ? " , , " rn e 


365.25) + ( 


N POR U 




I0rn o 


li "fisico 

; INK 4 ; " 


( t /U ) SU 3 

. 03 

PI) STEP 

=23)+(a R 

(a - t :i * (35 


assai 


178 



PAIIT POT 


Il prossimo,breve programma di Graham Charlton,colora lo 
spazio circoscritto di una figura generata in random,con il 
colore di IHK corrente. Le linee da 10 a 60 eseguono il 
disegno.mentre la subroutine da 9000 in poi lo colora, 
lotate la lunghezza di A$ e B$ le quali occupano un bel po' 
di memoria. 



4-0 , 0 
0,4.0 
-4-0 0 


0 


CIRCLE 
PLOT 
D R R LI 
DRRLJ 
D R R LI 
DRRLJ 
GO SUB 
STOP 
DIM aa 
DIM b % 
LET z a. 
INPUT X 
INPUT y 
plot X,y 

IF POINT 


é 


00 , 15 


-4.0 
9000 

C9909) 
C9999) 
1 


y)+POINT 
4. THEN GO 


(X+l,u) +POINT CX-1 
)+PÙINT <x,y-1) < 


90T0 

9000 

9090 

9100 

9110 

9190 
9 130 
914-0 
9160 
9160 
£ 

9170 
O TO 
9|6| 

9S10 

9990 


( x . y +1 
TO 9120 


LET Z =Z - 1 

IF Z*0 TMEN RETURN 
LET X «CODE a $*: Z ) 

LET usCQDE b i C Z ) 

GO TO 90S0 



a a (z ) «chr 
bi (Z) «CHR 
Z «Z •+• 1 
C «-1 TO 1 
d«~ ( C *0) TO 


( C a0) STEP 


IF POINT (X+C ,y+d) a0 THEN G 

9900 

NEXT d 

NEXT c 

LET XaX+C 

LET yay+d 

GO TÒ 0060 
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TIMOTHY LEARY 


Damian Steele ha aesso a punto questo programma il quale 
crea un certo numero di interessanti disegni per convincervi 
qualora non lo foste ancoraceli'ottima grafica del vostro 
computer. 





























10 PAPER © : BORDER 1: INK 1: L 

ET Dal: LET E*l; LET F«0: LET X« 
0: LET Ysl7S: LET S«D: LET B»0: 

LET C=0: OUER 1 


20 

CLS PRINT 

«0 

; RT 0 ì 

0; '• 



ZX TRIP 





P 

REMI 

UN TASTO PER 

I 

L LORD 

11 


100 

F O R R a X T Q 

V 

5TEP Si 



1 10 

IF A>«120 THE 

N 

GO TO 

400 


120 

IF R > «B7 TH 

EN 


GO SUB 

200 


130 

PLOT 0 , fi : DRfl 

LI 

( V * 1 . 

457 ) 

-B , 

R -C 







136 

IF INKEYjf O 

M li 

THEN G 

O TO 

10 

00 







14.0 

NEXT R 






2 00 

LET B«B+e.l 


L. 

ET C«C 

+• 2 


300 

RETURN 






4.00 

LET s «a 






450 

GO SUB 700 






S00 

OUER 1 






510 

FOR A«1 TO 

2 5 

S 

STEP 

s 


515 

IF INKEY»<> 

fi il 

THEN G 

O TO 

10 

00 






S20 

PLOT R 0 : DRRU 

© , 17© 



630 

NEXT R 






S3S 

IF B = 1 THEN 

G 

O 

TO SO 

0 


637 

GO SUB 700 






540 

FOR Asl TO 

17 

S 

STEP 

s 


545 

IF XNKEY %< > 

1* 1 » 


THEN G 

o T O 

10 

00 






550 

PLOT 0 R : D 

RR 

LI 

266 © 



560 

NEXT R 






565 

GO SUB 700 






670 

IF B < >1 THEN 

L 

ET B«1 

G O 

TO 

450 







600 

IF E»1 THEN 

L 

ET E « 0 : 

GO 

TO 

537 







620 

LET F « F + 1 : 

l'F 


F < « 1 T 

HEN 

LET 

Sai 

.4: LET B»0: 

r; 

o 

T O 4 10 


660 

GO SUB 700 : 

G 

Q 

TO 10 

00 


•700 

FOR R ss 1 TO 

10 

: 

BEEP 

. 007 

j (R 

ND *3i 

0) +35: NEXT 

R 





800 

RETURN 






1000 

PAUSE 0 : CL 

S 





100 1 

LORD ““ 







9500 STOP 

9B00 PRINT FLRSH 1 ; RT 10,10; “PER 
Hfi IL. NASTRO" : PRINT RT Sl,fi; "UN 
TASTO PER CONTINUARE » . « " : PAUSE 
0 : GO TO 1 
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COLOR TEST 


E* un senplice programa di David Perry che presenta sullo 
scherno tutti i colori di cui lo Spectrua dispone. Con un 
display del genere,potrete nettere a punto i controlli del 
vostro televisore per una imagine perfetta. 


P* 


10 

BORDER 

S: PRPè 

;R 

0: BRIGHI 1 

FLftSH 0: CU 

INUERSE 0 : 

OUER t 

& : 

a 0 

LET i a - 

1 : FOR 

n s 

=0 TO 31 5TE 


4 . 

30 LET i*i+l 

4.0 FùR y «s0 TO 3 

60 FOR X *0 TO SI 

60 PRINT RT X , n + y INK i 

7*0 NE XT X : NEXT y : NEXT ri 

60 INK 7 
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LOGIC GATE EMULATOR 


Questo programma di leviIle Predebon nostra i risultati 
ottenuti dalle porte logiche AED,IAHD,OR e HOR per un loro 
veloce inpiego nei circuiti. 


1 REM <3 a t e & 

6 rem & prede bon 

7 BORDÉR © 

IO PRINT INK 1 ,i RT S,13j "ORTES" 
INK 0 RT 10 , 6 ; " Po r t e •. o 9 i che" 

la in \< 0 

1S PR IN7" RT 1S , 3 ; "Pr e rii i u n t a s 

to qualsiasi": PRUSE 0: CL5 

S0 PRINT RT 5,1; "Scegli il- qat 

e - " P R I NT 

SS PRINT TRE ©;"RND = 1" 

30 PRINT TRE S;"NANO = 2" 

35 PRINT TRB 5;"OR = 3" 

4.0 PRINT TRB 5.1 "NOR == 4" 

45 PAUSE 0: CLS 

4-7 90 SUB 115 

50 PRINT RT © . 3" 

[DOT MT DOT t-JT 

55 PRINT TRB 2.; "Switch R - 00 1 


60 PRINT TRB S;"SwitCh B 
1 : PRINT 

65 IF INKEYf="2" THEN 30 
7 0 IF XNKEYÌ* ,, 3" THEN 30 
75 IF INK.EYS = "4” THEN 30 
B0 PRINT TRB 4;"Uscita - 
G O T o 10 0 

SS PRINT TRB 4;"Uscita - 
30 TO 100 


- 0 10 

T O © S 
TO 30 
T O 9 5 

Ems>" 


90 

PRINT TRB 

4 ; 11 U S c i t 

a - iSH" 

: G O 

T O 10 0 




95 

PRINT TRB 

4 “ u * c :i t 

a - trami" 

100 

INPUT INK 

1 ; ’ ’ U u 0 i 

u n - a L t. 

r a 

prò v a 

■7 • 1 a $ 




1©S 

i f a$s"si 

" OR a * ~ " 

SI" THEN 

30 TO 

15 




110 

PRINT INK 

2 ; T R B 9 ; 

■ • m 0 1 . 1 0 

be 

ne" : 

STOP 




115 

IF INKEY $ 

» " 1 " THE N 

p R ::i: nt 

RT 

3,4; 

' 1 R N D ” ; 




120 

IF INKEYS 

= ' ’ 2 " THEN 

PRINT 

RT 

3 , 4 ; 

•* NANO " 




125 

IF INKEY* 

• ■ 3 • ■ T |~| |~ N 

P R I NT 

RT 

3 1 4- ! 

' ‘ O R “ ; 




130 

IF INKEY* 

="4" THEN 

P R I NT 

RT 


"NOR" 




135 

PRINT " GRTE" : RET 

U R N 
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AURAi ASSAULT 


Ogni cali RÀJTDOMIZE produce,con questo breve programma di 
Graham VIthè,un suono diverso. Sono quindi cinque i 
motivetti che potrete inserire nei vostri programmi. 


254 


10 CLEftR 32 

20 FOR S=32 

30 RERD ri : 

4.0 NEX'T a 

50 DflTR 5.3 

,222 . 20 © 
7,90.12© 

30,201,0 
©0 DRtfl 

222,20©, 
i* ,i iSS. .1 .. 

, 0 

70 DATA ©,& 

0,222 205.131 
237,90,125 25 
, 230,201,0 

“ “ DATA 6,2 


399 

400 TO 
POKE a 


3 2 5 4 2 
, n 


0 

•J5 

2 


3 

0 


„ . 197,3 

101,3,22© 
.,255,3 


3,15,0,1 
,17,4,0, 

2,237,193,15, 


7,40, 
167 , 2 


© , 2 
3 1 , 
4-0 , 


0,197,33,0,3,1 
3,225,17,15,Ó, __ . , 
193, lo , 233 ., 201,0,0, 


7 ,1,0 
1©7.2 


, 19'7,3 
,3,225 
4.255 , 


3,15,0,1 
,17,15,0 
32,237,1 


, 197,33,0,5,17 


22 

9 , 

305, 

1 

S 1 

.1 


j 2 

iS 

5 

i 

"j? 

i 

© 


0 . 

., s 

2 , 

3 2,2 

4 

0 , 

1 

9 

é , 

1 

6 

.i iSÌ 

3 

3 


2 

0 1 


90 

DAT 

R 

5 


5 

0 , 

1 

'9 

7 , 

3 

3 


0 

, 1 

, 2 

29 

,205 

,1 

1S 

i 

> 

•■j ,i 

2 

2 

5 , 

i 

**7 

t 

, 

1 

F. , 


_©; 

rTi 

2,32 

.1 

2 4 

0 


19 

3 

., 

1© 

7 

cs! 

3 


, 2 

100 

RAN 

D 

GM 

125 

u 

S 

P 

3 

2 

4 

00 

1 

10 

RAN 

D 

DM 

X 

2 

E 

u 

5 

P 

3 

2 

4 

3 

0 

■1 

20 

RAN 

D 

GM 

X 

2 

E 

u 

3 

R 

r=i 

s 

4 

5 

0 

1 

30 

PRIM 

D 

OM 

T 

2 

E 

IJ 

s 

P 

3 


4 


0 

•1 

40 

RAN 

D 

GM 

X 

2 

E 

u 

3 

R 

3 

«ri 

5 

2 

0 

1 

50 

GO 

T 

O 

1 

0 

0 










7’ ,40, 
, 15 7 , 
'£*3 ,i lo 

.5,0, 

r j .ri O .• 

, 0 , 0 , 

7,1,0 
1B 7,2 

, 0 , 0 , 
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RAIVBIRD 


E' questo un programma assai interessante in quanto può' 
mescolare i colori in dotazione al computer producendo fino 
a 128 differenti ombreggiature. E’ possibile ottenere gli 
stessi effetti usando i caratteri grafici con il sistema 
checker-board pattern il quale mischia i colori a livello di 
pixel. 


>R 

1 43 

>R 

1 b 

>R 

1 C 1 

s 


L. 

L. 

à c 

b 

& 

è 

À 

b 


" a 
+ a 

3 

" b 
+ a 

4 

" C 

+ a 
© 


c 


10 

: 

ii 

1S 
20 
PR I 

e ■' 

a© 

30 

SS 

*4- i a 
4-0 
XNK 
; fiT 
4 1 
XNK 
*' ; PT 
42 
XNK 
“ ; PT 
4© 
#4 ; a 
©0 
©0 
?0 

GO T 
©0 
100 
O L O R 


por a ss 
“ +a , © I 
+1,©IN 
FOR a = 
‘ ' + a , © X 
+1.BIN 
FOR a = 
" + a , BI 
+ 1,© IN 

ppRer 

CSO TO 
PPPER 
PRINT 
4 © 

FOR C « 
PR INT 
NT n 0 
per i ' 
FOR a 
BEEP 
XF b=© 
PT O 
IF CL 
a .; P P 
a *2 + 1 
XF C L = 
aPP 
a *2 + 1 
X F C 
a P P 
a *2 + 1 
X F b a 0 
; PT 0 , 
NEXT b 
XF XNK 
XF XNK 
O 1 © 

G O T O 
PRINT 
X ' ‘ O 


0 TO 7 ©TER 2: 

N munì: POK 

00000000: NEXT 
0 TO 7 ©TER 2 : 

N 10101010: POK 

01010101: NEXT 

0 TO 7 ©TER £: : 

N 11110 0 0 0 : POK 

00001111: NEXT 

7: XNK 1: ©ORDE 

100 

0 : XNK 7 : ©ORDE 

PT 1 © , 0 j " 0 1 

© 7 pape r 

0 T O 1 

PT 19 12 


"Premi x un 


b r x 9 h 
t a s t o 
M 

0 TO 7: FOR b=0 
003,RND*40 — 10 
THÉN PRINT PT 
0 " i n K ' ‘ 

1 THEN PRINT 
PER b;PT a * 2 

b *4 ; “ PPPP " 

2 THEN PRINT 
PER b RT a *2 

b*4 ; “BBB©" 

3 THÉN PRINT 
PER b;PT a*2 

b * 4 ; "COCC ' ' 

THEN PRINT 
0 "inU" 

NEXT a 
EY$s"" THEN 


©R 
b * 

©R 
b * 

©R 
b * 


P O K E U 
E _ USR 

POK E U 
E _ USR 

POK E U 
E USR 
a 

R 7 : C 

R 0 : C 

2 


O ■' s p 
enu 11 
T O 7 

a *2 + 1 .i 

X G MT C 

4 "RRP 

XGHT c 

4;"BBB 

XGHT C 

4 j "OCC 


PT a *2+ 1., 


EY % < 


G O T O © 0 
THEN NEXT C: 


1 © 0 

PT 0,1.; 1 ‘ sPECTRUH 12© 
U E R 1 ; RT 0,1.;"..._ 


--■■TT0‘ ~T^RrTTrr. Wt 2 . 1 .; " ou e s t o 

m ma dim o etra c o me gLi o t t 
ri stan d a rd de L i o Sp e ct ru 

ano essere misce La 

P r od u rre fino a 12© di f 

i ombreggiature. 


p r o g r a 

o co Lo 

ni p o s s 

ti p e r 

f e r e ri t 
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120 PRIWT 
e usano 
t +. o .. 

ri deli, a 
a i. i per i e 
roducono 
pp o 

130 PRINT 
T O " 

14.0 PAUSE 

14-® CLS 

150 PRPER 
L.3 PRIWT 
ENU" 

130 PRINT 
o n tali flfi 
acchier a 


"Alcuni proqra m m i eh 
que s to tipo di effe 
impiegano i carette 
della tastiera i q u 
l o ro di m e n s i o n i , i ri t 
pero" contrasti t ro 


PRIWT 

AT 

19 , 

PAUSE 

0 


CLS 

PAPER 

"? : 

IWK 

PRIWT 

AT 

1 , 1 

PR IWT 

AT 

B , 0 


evidenti 


TAS 


, 0 ; ' ' 3 
1 - 3 ' ‘ 

170 PRIWT 
i ri K e di P a 
or o intere* 
u ri i ri k b l u 
c o i ori dive 
ss* s o u papa 
180 PRIWT 
routines p e 
raphi c s tr o 


180 PRI 
r o u t i n e s 
r a P h i c s 


2—4- 

190 

200 


AA PREMI " AT 7,0,1 "2: Se 
BE UN TASTO ' i AT 9 

Linee spezzate uC 

NT AT 13,lj"I colori di 
pape r non sono tra di l 
rcambiabili, per esempio 
blu su Paper rosso, da" 
i v e rsi che non u ri i n k r o 
a p e r blu. 

:NT «0; AT 0,1.; IWK 1.; "Le 
per generare gii user g 
t r ovano posto a i Le linee 

IWKEY $ < " THEN 60 TO 19 


200 LET a $ 
205 IP a * > 
TO 200 
210 LET Cl 


IWKEY « 

3" OR a $ < ' ’ 1 * ’ THEN '30 


iUAL 


GO TO 10 
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LIIE OF BEST FIT 


Ovvero la linea retta risultante. Scritto da Heil Cavalier- 
Saith.il programma vi chiede di battere un determinato 
numero di punti. Ci penserà’ poi il computer a disegnare la 
linea risultante dandovi anche l’equazione della retta. 


L'equazione delia rn i g i i a r i i n e a 
e ' 

Y*0.9X + S "? . 3 


100 



100 


L 'equazione della rn i g i i o r i i nea 
V *ix +0 


100 



100 
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Qui di seguito il listato relativo al 


prograasa : 


■i 

LET 

a 

-0 : LET 

b ss0 : LET 

rn ss 

LET 

k 

ss0 : INK 

7: PRPER 

0 

30 

CL5 


BORDER 

0 


40 

INPUT 

"Ouant i 

P u n t i '? ’ 

■ ; ri 

60 

DIM 

X 

( n 3 


60 

DIM 

y 

c n 3 



70 

POR 

c 

ss i to ri 




0 


IW P UT X ( C 3 . *4 ( c 3 
P L OT X < C 3 , y < C 3 
LET a = a + x ( c) 

LET b = b+y (C) 

NEXT c 

LET a sa n : LET b = b/ n 
POR casi TO ri 

LET m asm + c ( (x t c 3 -a 3 * c u r. c 3 - b 3 

PI B S ( X ( C 3 - a 3 3 T 2 3 3 

NEXT C 
l„E7" rn s= rn /n 
LET k = b - rn * a 
LET c ss0 

PRINT 
PRI NT 

j VJ , J. vs .1 

PRlNT RT 0.0 '' L ' e qu a 2 i O ri e d 

m i 9 i» i o r Linea e ■' ' 

PRÌNT RT 2,0; ••V =* " ; XNT C m * 10 

3 x 100 •• X + ” ; XNT ( K * 10 + . 5 3 X 10 

POR essi Tt3 100 
LET d =srn * c + k 


78 

e.© 

@0 
100 
110 
1 .s’- 0 

130 
3 ( •. 

14-0 
14. 6 
1S0 
160 

196 PLOT 0,0: DRRU 100,0 

RT SI . 13 ; “ 100" 

196 PLOT 0,0 : DRRU 0.10 0 

RT 6,01" 100 " 

200 '“ - 

e i. l a 
210 
0 + . 5 
220 
226 


130 :CF d •< 100 
240 NEXT c 
260 STOP 


THE N PLOT C ,d 


L'equazi o ri e d e L i. a rn i y l i o r linea 
e - 

V ss 6. „ 9 X + 11 


100 


100 
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HALL OF FAME 


Il programma si riferisce all’albo d'oro, cioè* alla 
classifica dei migliori punteggi riportati durante lo 
svolgimento di un game. Inserìte,ad esempio,un numero 
superiore a 100 seguito dal vostro nome e vedrete che il 
computer stilerà’ in un attimo la classifica aggiornata. Il 
programma e’ di David Perry. 


RUBO DEI SUCCE: 
© DflUID PERRY 


4. 

5 

6 
Si 

RIGHT 
10 


N U Ma N UMERO DEI P U NTI 


0 


PRPER 0: INK 


REM 
R E M 
REM 
REM 
REM 
REM 

BORDER_ 

L ET N U M a 10 : DI M M ( NIJ M + 1 > : 

IM N % f. N U M + 1 , G ) : F O R N a 1 T O N U M 

LET N!N) =1100 - (N*100) : LET N$ (W) 
a"SPECTRUM" : NEXT N 
16 CLS INPUT "PER 
TTI I TUOI PUNTI 

, li j *S5 Q 

SO " IF SC < ~N li 10) 

30 LET N U Mail 
HEN INPUT 
$: IF L..EN 

35 PRINT 
HT 0 IN K 

Q C H I 3 E C ! 

4- 0 IF S C > = N ( N U M il THE N 
Mi =SC: LET N « ( NUM) =P$ 

30 FOR Rai TO (NUM-1) : LET B $ 


D 


ESEMPIO Bfl 
PUNT I 

TMEN GO TO 300 
IF S C > a N li W U M ii T 
BRTT I S INIZIRLI! " P 
P %>& THEN GO TO 30 
RT T,0I FLASH 1; BRIG 
7; PAPER 3 ; "CI METTO P 

i i 

LET N ( NlJ 


LET BsN(R 
C THEN LET 
LET N$(A) 


N % ( R il : L E T C $ « N $ ( R + 1 ) 

il : LET QaN ( R + l il : IF 6 
N(fi) bC: LET N(fi+1)*B 
= Ct: LET Nf (fiH-1) »B$ 

6 0 NEXT R: FOR N = 1 TO NUli 
F N li N ) < M ii N + 1 ii THEN GO TO 5© 
70 NEXT N 
6 0 CL 6 

90 P R I NT RT 3.4- 
ESSI ! " 

100 PRINT RT 3,4..; "=a 

«j S 3S S SS SS * * 

110 FOR N a 1 TO NUM-1 
N +5,7; IN K IN K. 

; " il " ; RT N + S , 13 ; INK ? 

T RT N+S, 17.; INK 5;Nf 

130 PLOT 0.0: DRRU 255,0: 
0,175: DRRU -255,0: DRRU 0 


1 


R L B O D E I S U C C 


k ss a b ss 


PRINT RT 
3 .; N ; INK 6 
N li N .1 : PR IN 
( N ii : NEXT N 
D R R U 
- 1 « • 


PRINT RT 17,8; RRPER 3: INK '7. 
PREMI UN TASTO!": LET 1=0 

130 LET 1*1 + 1: IF I > '7 TMEN LET 
1=0 


193 




tO O FO H IO PJ-PH H 
iO”PW®o»rog! p- 
© rSOQQ-CQO'*© 


XNK X;"ALBO D 


PRINT RT a , 4- 

UCCE5SI !” 

BEEP .01., 1*7': PAUSE £ : IF X 
$ = ■'" jmen GO TO 130 
GO TO 1 S 

PRINT RT 10,4; "PUNTEGGIO SC 

! i i " 

PRINT RT 13,7;"PREMI UN TRS 

PAUSE 0: RUN 
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SPEC FILE 


E* un programma fuori dal normale,giunto da Xicael Briggs, 
che memorizza i dati in modo compatto assicurando lo 
sfruttamento di tutti gli spazi di memoria. 

Dato il RUX, il programma chiede il nome, il titolo del 
file e i titoli dei campi. Ognuna di queste voci non deve 
superare i 256 caratteri ad eccezione del campo che deve 
rientrare entro i 28 caratteri. 

Il menu' si presenta con le opzioni che seguono : 

1 IHIZIO HUOVO FILE : Avvia il programma cancellando 

tutti i dati precedenti. 

2 IXSBRISCI Un RECORD : Vi chiede di battere un record 

campo per campo e lo pone in 
ordine alfabetico assieme a 
quelli già' inseriti in 
precedenza. Se incorrete in un 



errore,potete tornare al 

menu* 


per mezzo del tasto 

"Q". 


3 RICERCA 

: Esegue la ricerca 

del 

file 


richiesto entro 


quelli 


registrati in memoria. 

4 SCRIVE TUTTI I RECORD: Presenta il primo campo di 

tutti i file e li associa ad un 
numero per la scelta. 

5 SAVE IL FILE : Registra il file col titolo 

assegnato al file stesso. Se il 
titolo e’ illegale,viene usata 
la parola "index". 

6 STATO : Questa opzione vi indica 

diversi parametri presenti nel 
programma come di quanto spazio 
dispone il file,quanti record 
vi sono ecc.. . 
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Una volta presa confidenza col programma,vi accorgerete che, 
in contrasto all'apparenza per la quale sembra essere 
mastodontico e complesso,si rivela invece oltremodo comodo e 
maneggevole da usare. 


1 REM MICHAEL BRIGGS 

2 POKE 20609,40: BORDER & : IN 

K 1: PAPER 7: CLS DIM (3500Q 

j : LET 2=1: LET CO=0 

© INPUT "NOME.C ® 

9 INPUT "COGNOME...,";SÌ 

10 INPUT "TITOLO DEL FILE " :T $ 

20 INPUT "NUMERO DEI CAMPI " F 

30 DIM A$ (F.,20) : POR R = 1 TO F: 

PRINT "BATTI IL TITOLO DEL CAMP 

O " fi : INPUT" B $ : LET fi « C fi, 2 TO )«s 

B $ : LET fl*(fl,l)sCHR$ LEM 0$: PRI 
NT INK 2 ; B $ : PRINT NEXT 

M 20 P fi U 3 E 50 

1©0 POKE 23609,4.0 : BORDELR © : CL 

S INK 0: PLOT 0,0: DRfiU 255,0: 

DRfiU 0,175: DRfiU -235,0: DRfiU 0 
, -175: INK 3 

110 PRINT INK 0; BRIGHI 1 : RT 1, 
13-LEN TS/2;T$i" MENU" 

120 PRINT" fiT 3,3.;" 1. INIZIO NUO 

yn FILE." 

- 130 PRINT fiT 5 , 3 " 2.1 NSEP IME:NT 

O NUOUfi UCCE . " 

14.0 PRINT fiT 7,3.;" 3 . RICERCA UO 

r"' E ' 1 

"lè© PRINT fiT 9,3;" 4.PRESENTA T 

IJTTE LE UGO I . " 

1©0 PRINT fiT 11,3.;" S.SfiUE IL F 
IL.E . " 

IBS PRINT fiT 13,3.;" 6 . STATUS DE 

L PILFi" 

17 0 PRI NT IN K 2 .; fiT 1 © . 3 .; 1 ' © M IC H 
AEL BRIGGS" 

13 0 PRI NT IN K 1.; fiT 17,11 - < L E N C 
S+LEN S $ 1 /2.; "FILE PER " ; C « ; " " ; S 


(LEN C 


|+LEN 5$) /2; "FILE PER " .: C « .; " " .; S 

*190 INPUT "SCELTA, . . " ; C 

195 CLS 

19 © IN K 1 

20 0 IF 0 < C fi N D C<8 THEN GO TO C 

* 1000 

2 10 G O T O 100 

1000 PRINI fiT 10,2;"SEI SICURO 

- • • -7 M 

1010 INPUT V* 

1020 IF V*(i:i="Y" OR y$« l)="y" T 
HEN RUN 

103© GO TO 100 

2000 INK 2: FOR fi=l TO F 

20 10 PRINT fiT fi *2-1 , 13- (CODE fisti ( 

fi , 1) 2 :> ; "SFITTI " .; fi® (fi ,2 TO > 

2020 NEXT fi 
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302 1 PRI NT RT 21,0; IN E X “ B ATT I 

Q PER TORNARE AL MENU." 

£030 L ET Esp*"" 

£04.0 FOR fisi TO F 

£050 PRI NT RT R*S-1,13 - (CODE A *£ ( 

R , 1 :i X A i "BATTI " FLASH 1.1 A Sfi (A3 , £2 

TO 1+ CODE A$(A)) 

£060 INPUT FÉ 

A0©1 IF F SS » " O " THEN GO TO 100 

£0?0 LET E$aE$+CHR$ LEN F sB+F $ 

S 0 & © PRI NT RT Ai * S ~ 1 , 13 - ( C O D E R $ ( 

R , X :i £) " B ATT I " A $ ( A , S T O X + C O D 

pT |^| ^ |* pXj *| | 

£090 PRI NT IN K 0 AT A * S , 1 © - L. E N F 

ss a F Si 

£100 NEXT R 

a 1X0 LET X X » 1 : FOR A * 1 'TO CO: LE 

t x $ « z «e (xx + a t o x x + c o d e $ c x x + x :• 
+x ) 

£115 IF X SS E 5B ( A TO ) THEN GO TO 

a 4.00 

■à ì a 0 i„ e t x ì * x x +• c o d e z ss ( x i :i 

£1£5 NEXT R 

SIS© LET EisCHRÉ (LEN 
TO Z+L.EN ESO 
Z=Z+LEN e-Si 
COsCO+1: CLS 


E Si 4- X ) + E $ : 
Tri gi 


E**CHRSS C 
Z Si ( X X + L E N 
T O Z > 

Z « C X X T O X X ■+• L E N 


. E N 
E Si 


: G O T O A 0 

E * + X !i + E Si 
T O Z +L E N E 


E Si - X ) 


LET Z Et ( .£* 

9X31 LET 
£140 LET 
00 

£400 LET 
£4X0 LET 
SO =Z!t (XI 
£4£0 LET 

;l 4- 3 0 GO TO A 131 

£999 REM ROUTINE DI RICERCA 

3000 PRINT TRE 11; "RICERCA ";R 
T a . 0 : "BATTI . . . " ; RT 3.0 ; " -N v PE 
R INSERIRE IL NUMERO DELLA UCCE. 

"X" PER I SOL. I CARATTERI , " : INF 

UT " P ARO L. R C M IAUE " ZK $ 

3004. LET M Si ~ " " “ 

E N LET M Si a E * ( X ) 


l£ R Si ( li *"N" TH 
LET K*»KS6 (S TO 


3005 
" ; K Sì 

300© LET 
30X0 LET 
3015 LET 
ODE 
HEN 


PRINT TAB Si "PAROLA CHIAUE 

r o 


c c 


Ih» I 

z $ ( x :• 
G o T O 


f 

’x’ 

T O 

( c 

M 

’sS = 

« 1 ' N • ' 

T 

E 

N 

K Si 


K. 

Si ; 

* K Si 

r 


RET =3040 
X » 1 : F O R A » X 
X X = X : L ET U Si : 

+ X - X. J > + " " : IF 

3 3300 

30 1© FOR ij ss 1 TO LEN <J*-I 

3 0 a 0 IF U Si ( • J T O U - X + L E N 

MEN GO TO 3300 

3030 NEXT U 

3 04-0 L. E T X ss X 1 +1... E N U $ ~ 1 : N E X T A 

3 050 PRINT - ' INK 0; "PREMI A": 

PAUSE 0 : GO TO 100 

3 300 PRINT - INK 4..; "LISTA M. . . 

" ; A : LET XSssXX: LET XlsXl + X: FOR 

K * X T O F- 

33 10 PRINT INK SS; AS6( E, A TO CODE 
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fl$(K1+ 1);"...": PRXNT INK l;TflB 

3 a - C O D E z $ ( X X ) ; z * r X X + 1 T o X 1 + C O D 

e (Z$ (xi:i 'j :• 

3 a a © L. ET X 1 = X 1 + I + c O DE Z * ( X 1 j 

O C> ■=; kj R VT K 

324.0 LET X. X aX2 : GO TO RET 

3 3 0 © X F K * > " © " R N D K % " 2 " T H E N X 

F R < > URL. K $ THEN GO TO 3 0 4-0 

3 310 LET RET=3050 

3 330 GO T G 3 2 0© 

4 0 0© PRIMT ' ‘ O lJRLS IRSI T Pi ST0 BLOC 

OR IL DISPLAY FIMO R CHE RESTI P 

REMUTO."' 

4005 PAUSE 0 

4 0 10 P P I NT AT 18., 1S - L E N T 95 X S IN 

K a ; T rtì 

4 0 a 0 IN K X : P P I NT 
4030 PRINT 

4040 LET X — X : POR Rasi TO CO 

4049 PRINT AT 21,0: POKE 23692,- 

X 

4050 PRINT "0000";AT 21,4-LEM CS 

TR$ R .• ; A ; 1 ' : " ; Z $ •. X + a "I"O X. + X + CODE 

( z * •: x + x :i ) ; 

4060 L„ET X »X + ( CODE Z ® ( X ) ) 

40SS IF INKEY$<>'••• THEN GO TO 40 

SS 

4 0 7 0 ME XT R 

4075 PRINT -"UN TASTO-PER IL ME 
N U . ' ‘ 

4030 PAUSE 0 : GO TO 100 

5 © 0 0 PRINT "REGISTP R ZIONE DEL FI 

LE SOTTO IL. NOME DI 

" : PRINT AT 10,16-L.EN TJ/2I FLRS 
H X;T| 

5006 IF T $ = " " OR LEM T*> 10 THEN 
PRINT AT 10,1;" IN 

DICE SAUE "INDEX" L 

INE 100 : GO TO 100 

S0 10 SAUE T * L INE 100 

S 0 a0 GO TO 100 

S 0 0 © P L O T 0,0: D P Pi U a B S , 0 : D R R LI 

0 i 17 S : ORALI -2S5,0 : D Pi Pi LJ 0 , -175 

60 10 PRINT AT 1,1a - (LEN T$> XS ; B 

RIGHI l; INK a ; T SB ; " STATUS" 

6020 PRINT AT 3,2;"TEMPO COMPUTE 
R : " .i I NT i: ( ( P E E K fe 3 S "? 2+256*PEEK 

2 3 S '7 3 Ì +655 3 G * P E E K a 3 S "7 4 ) X 50) ; " 

•ss. crr- " 


6 0 3 0 

PRINT AT 

S . 

IO ; 

- (LEM S & + LEN 

c $i :■ x a 

:"FILE PER 

ii 1 -. 

$ ; " " ; S Sì 

S 0 4 0 
: " ; CO 
6050 

PRINT AT 

*7 , 

3 ; ' * 

N. DELL. E UOCI 

PRINT AT 

'3 , 

,*■*, . i • 

S P R Z IO R IM A S T 

Ci : " ; 

35000~Z 




s 0 S 0 

PRINT AT 

1 1 

.i 4- J 

"CARATTERI NE 

L FILE :"1Z 




6070 

PRINT AT 

13 


' ‘ P R O G R R M M R : © 

M IC H R E L B R IG G 

:3 ‘ ' 



6 0 '7 S 

PRINT AT 

a© 

, S 

"UN TASTO PER 


k .} «• •-.» ' ■ r-'. ..i.. 

IL MENU 
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6 080 PRINT "RT 3,3; 
P : " ; INT ( ( (PEEK 3 
23675) +655B36*PEEK 

Ser 11 


••TEMPO COMPUTER 


3 © ’7 et + 3 53 €i * P E E K 
23674.) /50 4 “ 


608S IF INKÉYIO"" THEN GO TO 61 
0 0 

6090 GO TO O 080 
6100 GO TO 100 
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PROGRAMMAZIOHE STRUTTURATA 


SKETCHIMG AM OUTLIME 


L’autore a questo punto si lascia andare ad alcune 
considerazioni,sentiamo cosa dice. 

Mi e’ capitato molte volte di scrivere articoli oppure 
capitoli di libri cercando cosi’ di migliorare l'abilita’ di 
programmazione di chi legge,ed ogni volta mi sono limitato a 
fornire una lista di quanto in pratica si debba fare per 
programmare,a tale scopo mi viene in mente una vecchia 
storia circa un contadino. 

Un bel giorno fu avvicinato da un giovane rivenditore per 
corsi di corrispondenza sulla 'Agricoltura effettiva’. ”Mon 
pensa,” disse il venditore col suo tipico fare" che se anche 
lei prendesse parte al corso,imparerebbe ancor piu' cose 
sull’agricoltura?". Al che il contadino replico’ - "Per 
quante cose io abbia imparato e per quante cose io possa 
studiare,non finirò’ mai di imparare”. 

E’ quello che,secondo me,succede nella programmazione. 

Molte volte ho infranto ogni regola,procedendo faticosamente 
nella codifica di programmi complessi mentre era molto piu' 
comodo ricorrere alle facilitazioni del 'programma 
strutturato’. 

Leggendo questa appendiceli consiglio di non prendere le 
idee che seguono come delle regole fisse alle quali va 
portata massima ubbidienza, ma solamente come dei 
suggerimenti che talvolta possono tornare utili. La miglior 
cosa da farsi,in casi come questi,e' quella di immergersi 
totalmente nell’argomento leggendolo attentamente e 
valutando ogni suggerimento per poi decidere serenamente 
circa l’adozione dell’idea che piu’ sembra consona. 

E ora avviciniamoci a quello che può’ essere considerato lo 
scopo di questa appendice e cioè' lo studio della struttura 
di un programma. Il concetto e’ semplice e può’ realmente 
aiutarvi a scrivere programmi complessi ed evoluti come 
molti tra quelli pubblicati su questo stesso libro 
rendendovi il lavoro molto piu' spedito e facile. 
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La programmazione strutturata, come dice la parola stessa, 
prevede la stesura di una struttura piu' ampia possibile 
circa i blocchi di funzioni necessari al programma che avete 
in mente di scrivere. Pertanto iniziate sempre annotandovi 
le singole funzioni ognuna delle quali potrebbe essere una 
subroutine che esegue un ben determinato compito se 
richiamata dal programma principale. 

Per semplificare la spiegazione, faccio un esempio concreto 
prendendo in esame le fasi del programma ’Hought and 
Crosses’. Come noterete, la procedura strutturata impegna 
piu' spazio di memoria per la sua origine modulare, pero' e' 
molto piu’ semplice da migliorare e da correggere senza 
contare che e’ spersonalizzante e quindi capibile in poco 
tempo anche da chi vede il listato per la prima volta. 


P R E O I3 P O 3 X Z X O W E D E L. L O 3 C M E M R 
1L C O M P U T E R M U O U E 

(PO TESTA SE II- 0URDRHTO 
CENTRALE E" UUOTO E MUOUX DI 
C O N 3 E G U E N Z R 

( B !i TE3TR SE Xl_ COMPU T b :P MH 
L. R M O 3 3 R U X N C E NT E 3 E 3 I , F R L L. R 
( C } TESTR SE IL G XuPi T URE 
PIJO ’• U XNCERE RL.L.R PRO33 IMR MO33R 

S E 3 I B L. O C C IR L. O 

( D ) SE L R MOSSH NuN E :»T RT R 
E 3 E G U XT R , T E 3T R 3 E E 3 X ST E L fi 
P□ 33 IBIL.. XTR - p X UNR MO33R RRNDOM 
SE 31 FRL.L_R.3E NO DISEGNA LO 
3 C H E M R 

R C C E T T R L. R M ù 3 3 R DEL G I O C R T O R E 
D X3EQNPi L...O 3CHEMR 
T e: 3 T R 3 E X L G X O O R T O Fi E M Pi U X N T O , 
SE SI STOP 

GOTO •' IL. COMPUTER MUDO E " 


Come potete costatare soffermandovi un attimo su questo 
specchietto, risultano ben chiari tutti i passi che il 
computer deve eseguire, le decisioni che deve prendere e i 
risultati alternativi che queste possono offrire. 

Capito ciò’,avete compiuto già’ il primo passo nella stesura 
del programma 'Sought and Crosses’ ed e' un passo assai 
importante se non il piu’ importante di tutti in quanto 
fornisce al computer l’impostazione delle azioni da attuare. 
Tutto sta’,ora,nel verificare che ogni passo venga eseguito 
nel modo voluto e nella giusta direzione. 

Il secondo passo del processo consiste nel trasformare lo 
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specchietto di cui sopra in una serie di subroutines 
richiamabili. I linguaggi piu' strutturati del BASIC usato 
dal vostro computer, come il BASIC del Micro BBC, il PASCAL 
e altri, e' relativamente facile richiamare un certo numero 
di subroutines tramite un loop senza fine ottenibile con DO/ 
VHILE oppure con REPEAT/UNTIL i quali permettono di ripetere 
indefinitamente una serie di passi del programma fino a che 
non venga soddisfatta una certa condizione o fino a che non 
cambi il 'pointer' o un ’flag’. Mei nostro BASIC dobbiamo 
invece accontentarci del modesto e molto criticato GO TO. 
Molti 'programmatori seri’ vedono infatti il GO TO come un 
insulto alla programmazione, come una funzione 
sottosviluppata residuo di versioni primitive di BASIC nelle 
quali essa deve seguire per forza IF/THEH. Ecco quindi la 
trasformazione dallo specchietto alla serie di subroutines 
richiamabili da un ciclo ricorrente messo a disposizione da 
un GO TO : 


10 REM 


GO :--UB 

So Sub 


P U NT O E C R o c e: 


J 000 : 

■ _ -- ___ 1000 : 

COMPUTER 

4-0 GO SUB S000 : 

LL.R S XTUAZIONE 

50 GO SUB S00O: 

MOS3R DEL. G X OCMT 
6 0 GO SUB 8000 : 

L L. R S X T U R Z X O N E 

'7 0 IF il g i o c a t - 
o RND il c o ni p u ter 
HEN GO TO 30 

80 PRINT ' 1 CO NGR i 


R 

R 


; M X N X Z 
! M M O S 5 R 


D E L 


R E M 

D 

X S E G N O 

DE 

REM 

|RE 

R 

C C ETT R 

L. R 

R E M 

D 

X S E G N O 

D E 

r e 

ri o 

n h a v i 

n t 

n o n 

h 

a v i n t o 

T 

TUL. 

RZ 

X O N X ' ' 



Abbiamo cosi' ottenuto l’intelaiatura del 'Noughts and 
Crosses’ ma non ancora l’indicazione di come il programma 
lavori in realta’. 

Questa ’outline’ offre due ulteriori vantaggi.Col primo, per 
non incappare in ostacoli insormontabili (ad esempio per far 
cercare al computer chi ha vinto la gara), inserite 
semplicemente uno statement di PRINT comprendente la 
subroutine interessata come appunto può’ essere PRINT 
"RICERCA DEL VINCITORE” e quindi continuate a lavorare sul 
resto del programma. Ogni qualvolta deve dichiarare il 
vincitore,esegue il print sopra citato e voi potrete 
proseguire nello sviluppo senza soffermarvi nelle 
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subroutines minori che voi, almeno per il momento, non 
potete risolvere. Il secondo vantaggio riguarda il debugging 
da effettuare alla fine dello stadio di sviluppo. Secondo 
me, questo e* l'aspetto piu’ frustrante e meno interessante 
della programmazione. Di solito costringo il programma a 
lavorare sufficientemente bene in poco tempo, ma il portarlo 
da 'lavorare sufficientemente bene’ a 'farlo girare senza 
errori in ogni condizione’, può’ comportare impieghi di 
tempo non indifferenti. Perciò’ nella messa a punto del 
programma descritto in questa appendice, ricordatevi di 
semplificare al massimo le operazioni di 'debugging’. 
Appunto nel gioco ’Hought and Crosses', rileverete che il 
computer tende ad ignorare le mosse eseguite nell’angolo in 
basso a destra; infatti ponendo qui’ la mossa vincente, non 
viene rilevata privando il giocatore della vittoria. Come 
vedete dal 'loop della subroutine’, il computer muove entro 
le linee 1000 e 1999 il che riduce drasticamente l’area 
entro cui cercare. Se siete stati abili a formare le 
subroutines con serie di altre subroutines costruite come 
quella principale, vi risulterà' facile scovare il 'bug'. 

La subroutine che esegue le mosse parte dalla linea 1000 ed 
e’ la piu’ complessa di tutto il game. Un suo sviluppo 
potrebbe essere il seguente : 

2000 REM IL COMPUTER MUOVE 
a0 10 L.ET MOUE ss© : REM SE M0UE == 1 , 

U R M O S S R E - U R L... ID R 

2020 GO SUB 2200 : REM VERIFICA 5 

E IL QUADRETTO CENTRALE E' VUOTO 
a030 XF MO UE » 1 TH EN RETU RM 
a 04.0 GO SUB 2400: REM VERIFICA S 

E ESISTE L.R POSS 113 XL. XTR ' D X EFFE 
TTURRE LA MOSSR VINCENTE 
2050 IF MOVEsl THEM RETURN 
2060 GO SUB 2600: REM VERIFICA S 

E POSSIBILE BLOCCARE LA MOSSR UM 
R M R U X N C E NT E 

2070 IF MOVEsl THEN RETURN 

£080 GO SLJB 2800: REM VERIFICA S 

E P U O- ESSER E ES E G UIT R UN R M O S S R 

,‘-i i 1pj | «, ■[■ pi in 

a 0 § 0 ~ X F M O VEsl T H E N R E T U R N 
S100 REM IL.. RITORNO DI MOVE =0 IM 
PEDIS C E MO S S E SU CCES SX UE 
a 110 R ET U R N 


Come detto poco fa, i programmi costruiti usando 'loop 
ripetitivi di subroutines’ con 'subroutines immesse in altre 
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subroutines’ portano a perdite di spazio per cui alla 
partenza del programma può’ succedere di andare incontro a 
sorprese del tipo ’out of memory*. Comunque lo ripeto,1’ 
esuberanza del listato viene abbondantemente ripagata dalla 
chiarezza che questo assume e dalla velocita' del 
'debugging'. 

Provate a seguire la procedura descritta e vi accorgerete 
che l'intero processo di programmazione si semplifica a 
dismisura se paragonato ad altri metodi, forse piu’ economi 
di memoria, ma sicuramente piu' complessi ed intricati. Vi 
accorgerete anche che lo sviluppo richiede molto meno tempo 
del previsto risparmiandovi mal di testa ed aspirine. 

Tutto ciò’ naturalmente vuole essere solo un consiglio e non 
certo un obbligo circa la prassi da eseguire. Hon ascoltate 
quindi il vecchio contadino e procedete a seconda di quanto 
siete in grado di fare : e’ sempre la cosa migliore. 
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presente volume racchiude una raccolta di 49 programmi relativi a giochi 
alta qualità. 

che per una grande varietà di argomenti, i games proposti si distinguono 
l’eccellente grafica che è curata nei minimi particolari. 

> tale eccezionale risultato, TIM HARTNELL, riconosciuto come il più autorevole 
inglese in fatto di computer, è giunto avvalendosi della collaborazione 
maggiori talenti nel campo della programmazione, 
lira i numerosi programmi, diversi dei quali impiegano subroutines in linguaggio 
macchina, annoveriamo giochi esplosivi come: PROTECTOR - WIPE OUT - 

- TARANTULA - FROG ON A LOG - CARD PAIRS - 3D MAZE - FOUR IN 
ROW. 

mettervi in condizione di divertirvi subito, abbiamo allegato al libro, 
cassetta software con 25 giochi tra i più appassionanti. Ma non scordatevi 
altri 24 che vi riserveranno sorprese a non finire. Quindi non attendete 
correte a casa e fate "esplodere" il vostro SPECTRUM. 
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